Ich bitte um Hilfe bei folgendem Problem:
In einer UserForm habe ich eine TextBox "Bes1". Diese soll nur ganzzahlige Werte von 1 - 12 zulassen. Bei ungültiger Eingabe soll eine MsgBox erscheinen und der Anwender soll das Feld nicht verlassen können.
Mit folgendem Code klappt es leider nicht:
Private Sub Bes1_change()
If Me.Bes1 > 0 And Me.Bes1
Mit "SetFocus" bleibe ich zwar in der TextBox, kann sie aber ganz einfach mit der Pfeil-nach-unten-Taste verlassen.
Weiß jemand Rat?
Viele Grüße
Gerd