S - D1*e ^(- r*t1) - D2*e^(-r*t2)...
mein Code sieht folgendermaßen aus
Function SEscrowed(S As Double, r As Double, Optional Dividends As Object, _
Optional DividendTimes As Object) As Double
Dim i As Integer, n As Integer
Dim SE As Double
n = Application.Count(Dividends)
For i = 1 To n
SE = Dividends(i) * Exp(-r * DividendTimes(i))
Next
SEscrowed = S - SE
End Function
Problem: es wird immer nur das erste D mit dem ersten t abdiskontiert. Alle weiteren Ds und ts werden
irgendwie nicht berücksichtigt.
Was mache ich falsch?
Grüße