Simple Schleife für Inputbox
04.02.2015 15:39:41
Heiko
nach langer Zeit stillen Suchens im Forum, komme ich nun doch nicht mehr weiter. Ich versuche mich schon seit etlichen Minuten an einer Schleife für eine simple Eingabe mittels Inputbox. Diese soll enden wenn 0 oder "" (nichts) eingegeben wird. Ich weiß einfach nicht wo mein Fehler liegt. Momentan wird nur eine Schleife fehlerlos angezeigt. Nach der msgbox wird die Eingabe jedenfalls gleich wieder beendet. Kann jemand Licht ins Dunkel bringen?
Danke und Gruß
Heiko
Sub BOX()
Dim a, summe As Long
summe = 0
Do
a = InputBox("Bitte Gewicht eingeben - Eingabe läuft bis nichts oder 0 eingegeben wird", _
"Berechnung Rückwaage")
summe = a + summe
If a = 0 Then Exit Sub
Loop Until a > 0
MsgBox a
End Sub
Anzeige