Thema Datum  Von Nutzer Rating
Antwort
Rot Schleife Funktioniert nicht
15.05.2020 08:55:19 jaSchme
NotSolved
15.05.2020 09:47:21 Torsten
NotSolved
15.05.2020 12:07:32 Gast63420
NotSolved

Ansicht des Beitrags:
Von:
jaSchme
Datum:
15.05.2020 08:55:19
Views:
44
Rating: Antwort:
  Ja
Thema:
Schleife Funktioniert nicht
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
 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Schleife Funktioniert nicht
15.05.2020 08:55:19 jaSchme
NotSolved
15.05.2020 09:47:21 Torsten
NotSolved
15.05.2020 12:07:32 Gast63420
NotSolved