Hallo zusammen,
ich versuche seit geraumer Zeit, ein einfaches Zinsberechnungsprogramm zu erstellen, und habe dabei zwei Probleme:
1. die beiden Message-Boxen weisen keinen/bzw. einen falschen Wert aus;
2. ich möchte gerne, dass auch die Folgejahre berechnet werden - leider weiß ich nicht wie das mit do while bzw. loop gelöst werden kann.
Freue mich über jede Hilfe - danke schon mal!
Und hier mein bisheriger Code:
Sub Zinsberechnung()
Dim Zinssatz As Double
Dim Anfangskapital As Currency
Dim Anlagedauer As Integer
Dim Zinsertrag As Integer
Dim Anfangskapital_Folgejahr As Integer
Anfangskapital_Folgejahr = KE = KA + 1
Zinsertrag = Z
Zinssatz = p = Val(InputBox("Bitte Zinssatz eingeben"))
Anlagedauer = J = Val(InputBox("Bitte Anlagedauer in Jahren eingeben"))
Anfangskapital = KA = Val(InputBox("Bitte Anfangskapital eingeben"))
Z = p / 100 * KA
i = 1
KE = KA + Z
Do While inti < J
Loop
MsgBox ("Der Zinsertrag im Jahr i beträgt " & Z & " Euro")
MsgBox ("Das Kapital am Ende des Jahres beträgt " & KE & " Euro")
End Sub
|