Hallo,
wer kann mir zu folgendem Code behilflich sein.
Die if not passsage ist neu eingefügt.
So funktionierts aber nicht. Laufzeitfehler 13
Weiß da jemand weiter?
Vielen Dank
Thomas
weiter:
Dim wteingabe As Byte
wteingabe = InputBox("Gebe eine Zahl von 1-100 ein")
If wteingabe < 1 Then
MsgBox "Nicht erlaubt"
GoTo weiter
ElseIf wteingabe > 100 Then
MsgBox "Nicht erlaubt"
GoTo weiter
If Not IsNumeric(wteingabe) Then
MsgBox ("Eingabe muß numerisch sein")
GoTo weiter
Else
MsgBox "ok"
End If