Zinsrechung in VBA / Wo ist der Fehler?!?
20.01.2004 14:25:06
Russi
Ich stehe zum Thema Zinsrechnung auf dem Schlauch (und ehrlich gesagt: das war schon immer so...) ;-)
Vielleicht könnt Ihr mir mal wieder helfen? Es geht um folgenden Code:
Dim ZeileBeg as Integer ' = Erste gefüllte Zeile in der Spalte, wird in Schleife ermittelt
Dim ZeileEnd as Integer ' = Letzte gefüllte Zeile in der Spalte, wird in Schleife ermittelt
Dim Spalte as Integer ' = Spalte, die betrachtet wird, wird bei Makrobeginn ermittelt
Dim Rendite as Double
Rendite = (Cells(ZeileEnd, Spalte).Value / Cells(ZeileBeg, Spalte).Value) ^ (1 / (ZeileEnd - ZeileBeg) / 4) - 1
Die Zinsformel in ihrer Ursprungsversion ("=(Endbetrag/Anfangsbetrag)^(1/Jahre)-1") funktioniert richtig, der Fehler muss also in meiner Umsetzung liegen.
Da es sich bei mir um Quartalszahlen (1 Zeile = 1 Quartal) handelt und nicht um Jahreszahlen, habe ich die Anzahl der Zeilen durch 4 geteilt, um auf die Jahreszahl zu kommen.
Kann mir vielleicht jemand sagen, wo hier der Fehler liegt?!? Ich hoffe, ich habe mich nicht zu unverständlich ausgedrückt...
Russi