Summe von n bis n+t in VBA
22.01.2009 17:06:49
n
Leider habe ich sehr wenig Ahnung von VBA und probiere gerade eine Formel hinzubekommen. Sehr wahrscheinlich ist es für andere einfach, daher bitte ich um Rat.
Ich habe eine Spalte mit Zahlen (B2:B16).
Abgesehen von dieser Spalte habe ich zwei weitere Variablen: t und n.
Die Formel lautet nun: s = (ln(1+(t-ter Eintrag von oben (funktion index)))^(-t) - ln(1+((t+n)-ter Eintrag von oben))^(-(t+n))) / (summe ln(1+(i-ter Eintrag von oben (funktion index)))^(-i))
wobei die Summe im Nenner von i = t+1 bis t+n geht.
Ich hoffe man versteht was gemeint ist.
Ich habe mal angefangen mit einer Formel in VBA, da ich aber wenig bis keine Ahnung habe, muss sie verbessert/ergänzt werden:
Function Test(t, n)
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
a = (Ln(1 + Application.WorksheetFunction.Index(Range("S6:S27"), t))) ^ (-t)
b = (Ln(1 + Application.WorksheetFunction.Index(Range("S6:S27"), (t + n)))) ^ (-(t + n))
'Dim i As Long
'For i = (t+1) to (t+n)
'c = (Ln(1 + Application.WorksheetFunction.Index(Range("S6:S27"), i)))^(-(i))
Next i
Test = ( a - b ) / c
End Function
Vorallem bei der Bildung der Summe habe ich keine Ahnung und bitte um Hilfe.
Danke und Gruss
Helmi