Inputbox: False vs. 0 ?
25.09.2003 13:27:27
Marc
Ich verzweifel mal wieder über einem wahrscheinlich trivialen Problem.
Für eine Prozentangabe soll in einer Inputbox eine Angabe zwischen 1 und 100 gemacht werden.
Bei einem Wert <1 oder > 100 wird die Inputbox erneut aufgerufen, beim Klick auf "Abbrechen" abgebrochen.
Der Code dazu:
eingabe = Application.Inputbox("Ihre Eingabe", "Eingabe" , Type:=1)
If eingabe = False Then exit Sub
If Not (eingabe > 0 And eingabe < 101) Then
Do
eingabe = Application.Inputbox("Ihre Eingabe", "Eingabe" , Type:=1)
If eingabe = False Then exit Sub
Loop Until (eingabe > 0 And eingabe < 101)
End If
Mein Problem dabei ist nun, dass eine "0" als Eingabe vom Anwender ebenfalls als "False" interpretiert wird und das Makro aufgrund des "exit sub" aussteigt.
Das möchte ich jedoch verhindern.
Aber wie ?
Ich danke euch mal wieder im Vorraus.
Viele Grüsse,
Marc