[mona_lisa]

HI,
ich habe ein kleines Problem bei einem VBA-Code. Ich will ein ganz einfaches Programm (in einem Userform) erstellen, was mir die Annuität bei einem Kredit ausrechnet. Kredithöhe, Zinssatz und Laufzeit kann man frei eingeben. Sobald ich jedoch einen Wert bei Kredithöhe eingebe, kommt der Laufzeitfehler 6 (Überlauf). An der Variablendeklaration sollte es eigentlich nicht liegen weil der Fehler auch kommt, wenn ich z.B. nur die Zahl 10 eingebe.
Hier der Code:

Option Explicit
Dim kredithöhe As Currency
Dim zinssatz As Double
Dim laufzeit As Single
Dim annuität As Currency

Sub vorbesetzen()
kredithöhe = EditKredithöhe.Value
zinssatz = EditZinssatz.Value
laufzeit = EditLaufzeit.Value
End Sub

Sub berechnung()
annuität = kredithöhe * (zinssatz * (1 + (zinssatz / 100)) ^ laufzeit) / ((1 + (zinssatz / 100)) ^ laufzeit - 1)
End Sub

Private Sub EditKredithöhe_Exit(ByVal Cancel As MSForms.ReturnBoolean)
berechnung
vorbesetzen
End Sub

Private Sub EditLaufzeit_Exit(ByVal Cancel As MSForms.ReturnBoolean)
berechnung
vorbesetzen
End Sub

Private Sub EditZinssatz_Exit(ByVal Cancel As MSForms.ReturnBoolean)
berechnung
vorbesetzen
End Sub


Private Sub UserForm_Activate()
EditKredithöhe.Value = 0
EditZinssatz.Value = 0
EditLaufzeit.Value = 0
End Sub

Würde mich über jede Hilfe sehr freuen :-)