VBA Schleife
07.02.2013 15:26:56
Aleks
ich weißt, es ist unhöflich, sich irgendwo anzumelden und direkt mit einer Frage zu starten. Aber genau dies muss ich leider direkt machen.
Ich habe eine Aufgabe und kriege sie einfach nicht gelöst, die Aufgabe lautet :
Nacheinander werden eine Reihe von Zahlen eingegeben. Nach Eingabe der Zahl 0 wird der Durchschnittswert der eingegebenen Zahl ausgegbeben.
Mein bisheriger Versuch sieht so aus:
Public Sub Aufgabe_3a()
Dim Summe As Currency
Dim Zahl As Currency
Dim Zähler As Currency
Summe = 0
Zähler = 0
Zahl = InputBox("Bitte Zahl eingeben")
Summe = Summe + Zahl
Zähler = Zähler + 1
Do While Zahl 0
Summe = Summe / Zähler
MsgBox Summe
Loop
End Sub
Dann habe ich noch eine Aufgabe die ich ebenfalls nicht gelöst kriege, sie lautet: Ein eingezahlter Betrag wird in jedem Jahr mit einem gleichen Zinssatz verzinst. Es soll für eine einzugebende Anzahl von Jahren, einen einzugebenden Betrag und einen einzugebenden Zinssatz das Kapital am Ende eines jeden Jahres ausgegeben werden.Mein versuch sieht so aus:
Public Sub Aufgabe_4()
Dim Betrag As Currency
Dim Zinssatz As Currency
Dim Jahre As Currency
Dim Summe As Currency
Dim AktJahre As Currency
AktJahre = 1
Betrag = InputBox("Bitte betrag eingeben")
Jahre = InputBox("Bitte jahre eingeben")
Zinssatz = InputBox("Bitte zinssatz eingeben")
Do While AktJahre Jahre
Summe = Betrag * (Zinssatz / 100) ^ AktJahre
MsgBox Summe
AktJahre = AktJahre + 1
Loop
End Sub
Ich hoffe mir kann geholfen werdenMit freundlichen Grüßen
Aleks