ich habe eine Textbox in die ein Datum eingegeben werden soll. Das Format soll tt.mm.jjjj sein. Das habe ich soweit hinbekommen :
Private Sub TextBox7_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox7
If IsDate(.Text) Then
.Text = Format$(TextBox7.Text, "dd.mm.yyyy")
ElseIf Len(.Text) > 0 Then
Cancel = True
.SelStart = 0
.SelLength = Len(TextBox7.Text)
End If
End With
End Sub
Ist es möglich das ich ein Datum ohne Punkte eingebe und diese dann automatisch erzeugt werden: 120213 => 12.02.2013?Vorab vielen Dank.
gruß
Philipp