[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 :-)

[Servant]

Erst die Funktion vorbesetzen() und dann die Funktion berechnen() aufrufen.

[mona_lisa]

Inwiefern stimmt das nicht? Ich muss die Felder doch auf 0 setzen, sonst meckert der wegen unverträglichen Typen rum, weil er nicht kapiert, dass nichts=0 ist^^. Ich bitte um weitere Tips, ich finde einfach keine Lösung, bzw. fehlt mir wohl das Wissen dafür

[mona_lisa]

Zitat von Servant

Erst die Funktion vorbesetzen() und dann die Funktion berechnen() aufrufen.

Stimmt! Aber der Laufzeitfehler 6 kommt trotzdem! Warum nur? Ist die Fromel zu lange oder was?! Die Deklarationen habe ich jetzt mal so gestaltet:
Dim kredithöhe As Long
Dim zinssatz As Single
Dim laufzeit As Integer
Das ist doch korrekt oder nicht?

[Servant]

Das kommt daher, dass einige Werte null sind.

[mona_lisa]

Aber ich bekomme den Fehler auch wenn ich die Werte nicht auf 0 stelle. Er hängt sich immer an der Formel für die Annuität auf

[mona_lisa]

Hab die Lösung gefunden: einfach die PMT-Funktion nehmen^^ Trotzdem danke an alle!