Excel: Ermitteln der effektivVerzinsung einer Annuitätentilgung

Gepostet am: Feb 11, 2011 2:40:12 PM

effektivVerzinsungAnntilg(Auszahlungsbetrag, Annuitaet, Laufzeit)

Public Function effektivVerzinsungAnntilg(Auszahlungsbetrag As Double, Annuitaet As Double, Laufzeit As Double) As DoubleDim i As DoubleDim Differenz As DoubleDim optZinssatz As DoubleDim minDifferenz As DoubleDim Differenzalt As Double minDifferenz = 100000000If Abs(Annuitaet * Laufzeit - Auszahlungsbetrag) = 0 Then     effektivVerzinsungAnntilg = 0     Exit FunctionEnd IfFor i = 0.00001 To 0.99 Step 0.00001     Differenz = Abs((Annuitaet * (1 - (1 + i) ^ (-Laufzeit)) / i) - Auszahlungsbetrag)     'Debug.Print i & ":" & Differenz     If Differenz < minDifferenz Then         Differenzalt = minDifferenz         minDifferenz = Differenz         optZinssatz = i     End If     If Differenz > Differenzalt Then         Exit For     End IfNext i effektivVerzinsungAnntilg = optZinssatz End Function