Nur 4 Zahlen in eine Textbox geben...
KLE
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
Gruß und Danke
Kay
Anzeige