|
Hallo, ich habe folgendes Problem:
Ich muss für die Uni Zinssätze mit VBA simulieren. Dafür habe ich folgenden Code bekommen:
Function Simulationzinsen(aktuellerpreis As Double, simulationszeitraum As Integer) As Variant
Dim zufallszahl As Integer
Dim Preis As Double
Dim i As Integer
zufallszahl = Application.WorksheetFunction.RandBetween(0, 100)
For i = 1 To simulationszeitraum
Preis = aktuellerpreis * Exp(Tabelle1.Cells(4 + zufallszahl, 5))
Next i
Simulationzinsen = Preis
End Function
Wenn ich das in VBA eingebe erscheint auch die Funktion.Aber er gibt mir nur die den Zinssatz wieder, der auch in der Eingabe ist. Also da wird nichts durch die Zufallszahl simuliert. Wie muss ich denn das :
Preis = aktuellerpreis * Exp(Tabelle1.Cells(4 + zufallszahl, 5))
verändern, dass das klappt?
Wäre super, wenn mir jemand helfen könnte.
Vielen Dank im Voraus.
|