Ich verstehe nicht warum meine Schleife nicht funktioniert. Die Schleife läuft nur einmal durch und danach wird sie beendet.
Kann mir jmd. helfen und sagen, was ich falsch gemacht habe ?
Vielen Dank im Voraus.
'Programmbeschreibung: ein Kapital soll mit Hilfe von Zinsen verdoppelt werden
'Vorlauf
Sub Kapitalermittlung()
'Deklaration
Dim Endkapital, Kapital, Zinsbetrag, Zinsen As Double
Dim Periode As Integer
'Initialisierung
Zinsbetrag = 0
Periode = 1
'Überschriften
Worksheets("Ausgabe").Cells(1, 1) = "periode"
Worksheets("Ausgabe").Cells(1, 2) = "Kapital"
Worksheets("Ausgabe").Cells(1, 3) = "Zinsbetrag"
'Werte einlesen lassen
Kapital = InputBox("Anfangskapital")
Zinsen = InputBox("Zinsen")
Endkapital = Kapital * 2
'Hauptlauf
'Bedingung
While Kapital >= Endkapital
Zinsbetrag = Kapital * Zinsen / 100
Periode = Periode + 1
Kapital = Kapital + Zinsbetrag
Worksheets("Ausgabe").Cells(Periode, 1) = Periode
Worksheets("Ausgabe").Cells(Periode, 2) = Kapital
Worksheets("Ausgabe").Cells(Periode, 3) = Zinsbetrag
Wend
'Nachlauf
End Sub
|