habe soeben heraus gefunden das Case 48 to 57 in dem untenstehenden Makro für die Ziffern 0 - 9 stehen.
Wie kann ich aber machen das der Eingabebereich zwischen 1 und 2000 liegt und sonst eine MsgBox kommt " Leider ist Ihre Zahl zu gross".
Ebenfalls darf keine 0 eingegeben werden. Wenn ich aber Case 49 bis 57 mache, würde dass ja bedeuten das ich auch die Zahl 50 nicht schreiben könnte, oder ?
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
End Select
End Sub
Wäre wieder einmal sehr dankbar wenn mir jemand helfen könnte.
Gruss Roger