Hallo,
hier der Code
Dim wteingabe As String
wteingabe = InputBox("Gebe eine Zahl 1-107 ein")
If wteingabe < 1 Then
MsgBox "Null ist nicht vorhanden"
GoTo weiter
ElseIf wteingabe > 107 Then
MsgBox "Mehr als 107 ist nicht vorhanden"
GoTo weiter
Else
MsgBox "Ok"
End If
Mein Problem ist nun, bei Eingabe von einem Buchstaben etc. stürzt er ab.
Kann mir da jemand helfen?
Danke
Thomas