InputBox die Zweite
14.11.2006 15:26:44
Mathias
also dies Programm klappt ganz gut.
Sub tt()
Dim strTxt
Do
strTxt = InputBox("Zahl?")
If strTxt = "" Then Exit Sub
Loop Until IsNumeric(strTxt)
MsgBox strTxt
End Sub
Jetzt möchte ich aber eine Fehlermeldung bringen, wenn ein zeichen oder buchstabe gewählt wurde, also vor der erneuten Abfrage eine MsgBox, dafür
aus "Exit Sub" einfach "MsgBox" gemacht klar.
die meldung erhalte ich aber nur wenn kein zeichen eingeben wurde.
wie kann ich das abfangen.