Dim d
wiederholen:
d = InputBox("Wie viele direkte Mitarbeiter sind in der gesamten Produktion beschäftigt ?")
If VBA.IsNumeric(d) Then
If VBA.CInt(d) > 0 And VBA.CInt(d) < 10000 Then
Worksheets("Druckblatt").Range("MA") = d
Else
MsgBox ("Die Zahl muß zwischen 1 und 10.000 liegen. Bitte wiederholen Sie Ihre Eingabe.")
GoTo wiederholen
End If
Else
MsgBox ("Das war keine Zahl")
GoTo wiederholen
End If
Vielen Dank