Hauptsächlich geht es um den teil ' Eingabeaufforderung und begriffe wie "on Error" und tabelnumber(tblNr)
Dim tblNr As Variant
'Eingabeaufforderung
erneute_Eingabe:
On Error GoTo Fehlermeldung
tblNr = InputBox(" bitte geben sie die Lottozahl ein!", "Lottozahlen")
If tblNr = vbAbbruch Then GoTo Ende
If tblNr 0 Then
MsgBox "Eingabe korrekt"
'eingabe im Fenster1
Range("A2") = tblNr
'keine Eingabe im fenster
Else
Fehlermeldung:
MsgBox "Eingabe nicht korrekt - bitte noch einmal:"
GoTo erneute_Eingabe:
End If