ich würde gerne eine Textbox mit einem Datumformat versehen, damit bei der Eingabe von 21.10 beim verlassen automatisch das Datum 21.10.10 erscheint (analog Excel) ist dies überhaupt möglich?
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(Me.TextBox1 & "." & Year(Now)) Then
Me.TextBox1 = Me.TextBox1 & "." & Year(Now)
ElseIf IsDate(Me.TextBox1 & Year(Now)) Then
Me.TextBox1 = Me.TextBox1 & Year(Now)
End If
End Sub
Grüße Boris