|
Hallo, folgende InputBox funktioniert zwar. Bei einmaliger Falscheingabe kann ich die Eingabe wiederholen. Beim zweiten Mal kommt die Meldung:
Laufzeitfehler '91': Objektariable oder With-Bockvariable nicht festgelegt.
Was muss ich ändern, damit Falscheingaben endlos funktionieren? Vielen Dank für Eure Hilfe!!! Gruß David
Zeile1:
Dim Message, Title, Default, MyValue
Message = "Nummer eingeben:" & vbNewLine & vbNewLine & "(lfd. Nr.) 1 bis 428"
Title = " Datenblatt erstellen"
Default = "1"
MyValue = InputBox(Message, Title, Default)
If MyValue < 1 Then GoTo Zeile1
If MyValue = "" Then Exit Sub
If MyValue <= 428 Then
... usw.
Else
MsgBox "Kein Eintrag gefunden.", vbCritical
On Error GoTo Zeile1:
End If
|