kann mir jemand helfen?
wie kann ich (oder kann ich überhaupt) für ein UserForm-Steuerelement (TextBox)
eine Gültigkeit festlegen? z.B. dass da nur ein Datum eingegben werden kann?
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Text) < 10 Then Cancel = True
End Sub
Private Sub TextBox1_Change()
If Len(TextBox1.Text) = 10 Then
If IsDate(TextBox1.Text) = False Then
MsgBox "Keine gültige Eingabe!"
End If
End If
End Sub
Private Sub TextBox1_KeyPress( _
ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) Like "[0-9.]" = False Then
KeyAscii = 0
End If
End Sub