Thema Datum  Von Nutzer Rating
Antwort
Rot MsgBox weist keinen (falschen) Wert aus
 12.02.2015 18:41:03 Gast
NotSolved
13.02.2015 01:24:51 Gast63671
NotSolved

Ansicht des Beitrags:
Von:
Gast		 Datum:
12.02.2015 18:41:03		 Views:
1110		 Rating:
     
Antwort:
  Ja
Thema:
MsgBox weist keinen (falschen) Wert aus

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
Rot MsgBox weist keinen (falschen) Wert aus
 12.02.2015 18:41:03 Gast
NotSolved
13.02.2015 01:24:51 Gast63671
NotSolved