Sub juhu()
 
On Error Resume Next
 
Dim irgendwas As Integer
 
Do While irgendwas < 1 Or irgendwas > 4
 
irgendwas = InputBox("Geben Sie bitte eine Ganzzahl von 1 bis 4 ein:", 0)
 
Loop
 
MsgBox (irgendwas)
 
End Sub

EALA FREYA FRESENA