ich habe aktuell das Problem, dass ich beim klicken auf Abbrechen einer Inputbox eine Fehlermeldung "Laufzeitfehler 13 Typen unverträglich" erhalte.
Wie kann ich die Ausführung der SUB beenden und die Fehlermeldung unterdrücken?
Private Sub cmdJA_Click()
Dim lngJahr As Long
Do
lngJahr = InputBox(prompt:="Jahr eingeben:", Title:="Jahr")
If val(lngJahr) > 2000 And Val(lngJahr) 0 Then
Exit Do
Else
MsgBox "Sie haben eine ungültige Jahreszahl eingegeben" & vbCrLf & "Geben Sie bitte _
eine gültige Jahreszahl ein.", vbOKOnly
End If
Loop
MsgBox lngJahr
End Sub
Gruß,
Peter