Wie bekomme ich eine Textbox / User form/ so hin, daß ich bei Eingabe von Zahlen ein Datum erhalte?. Also 090605 solle erscheinen 09.06.2005.
Danke
Markus
Private Sub TextBox1_Change()
If Len(TextBox1) = 6 Then
TextBox1 = Left(TextBox1, 2) & "." & Mid(TextBox1, 3, 2) & "." & Left(Year(Date), 2) & Right(TextBox1, 2)
End If
End Sub