Hallo Leute,
bin zum ersten mal hier im Forum =) hoffe das ich nicht gegen irgendwelche Regeln verstoße =)
Ich hoffe, das ihr mir bei meinem Problem helfen könnt. Ich wollte die Laufzeit eines Darlehens berechnen, und da hängts.
Hier mein CODE
Option Explicit
Sub Darlehensberechner()
'Variablen dek.
Dim n#, i#, S#, R#
S = InputBox("Kaufbetrag: ")
R = InputBox("Monatliche Ratenzahlung: ")
i = InputBox("Zinssatz: ")
i = i / 100
'Berechnung
n = -Log(1 - ((i * S) / R)) / Log(1 + i)
'Ausgabe
MsgBox ("Laufzeit: " & n)
End Sub
Wenn ich jetzt Kaufpreis 35000 € eingebe und monatlichen Raten von 300 € zu einem Zins von 6,5 % dann gibt er mir eine Fehlermeldung in der Zeile n = .....
Hoffe ihr könnt mir helfen.
Gruß d.L.
|