Public Sub Eingabeprüfung()
Dim varEingabe As Variant
varEingabe = InputBox ("Bitte geben Sie eine Zahl zwischen 1 und 45 ein:")
On Error Goto Fehler:
If Not IsNumeric(varEingabe) Then Err.Raise vbObjectError + 1
If varEingabe < 1 Or varEingabe > 45 Then Err.Raise vbObjectError + 2
If Not varEingabe = Int(varEingabe) Then Err.Raise vbObjectError + 3
' Weiter im Code, keine Fehler gefunden
Ende:
Exit Sub
Fehler:
' Eigentliche Fehlerbehandlung
Select Case Err.Number
Case vbObjectError + 1
MsgBox "Keine Zahl eingegeben!", VbExclamation
Case vbObjectError + 2
MsgBox "Zahl nicht zwischen 1 und 45!", VbExclamation
Case vbObjectError + 1
MsgBox "Keine ganze Zahl eingegeben!", VbExclamation
Case Else
Err.Raise Err.Number
End Select
Resume Ende
End Sub