ich nutze folgende Zeilen, um bei der Eingabe in einer Text zu prüfen, ob auch wirklich nur Zahlen eingegeben werden und beim verlassen, ob es 4 Ziffern sind (Jahreszahl "JJJJ").
Der erste Teil (Change) klappt perfekt, aber der Zweite - beim verlassen ... kann ich auch 2 oder 20 Zahlen eingetragen haben, ich komme mit Tab, Enter oder Maus ohne problem in die nächste Textbox.
Private Sub objTBJahr_Change()
If Not IsNumeric(objTBJahr.Text) Then
objTBJahr.Text = ""
End If
End Sub
Private Sub objTBJahr_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If VBA.Len(objTBJahr.Text) 4 Then
With objTBJahr
.SetFocus
.SelStart = 0
.SelLength = VBA.Len(.Text)
End With
Exit Sub
End If
End Sub
Warum ?! und wie kann ich es besser machen, dass der User wirklich nur 4 Ziffern eintragen kann?Gruß und Danke
Kay