1 Public Function WasWirdBerechnet(a As Range,
b As Single, c As Single)As Single
2 Dim x As Single
3 Dim i, anzahl As Integer
4 x = 0
5 anzahl = a.Rows.Count
6 For i = 1 To anzahl
7 x = x + a.Cells(i) * (1 + b) ^ (-i)
8 Next i
9 WasWirdBerechnet = x - c
10 End Function
|