Problem bei Datumseingabe
04.10.2017 10:08:14
Holger
ich habe eine Userform entwickelt, in der unter anderem in eine Textbox ein Datum geschrieben werden soll. Zur Überprüfung habe ich folgende Prozedur geschrieben:
Private Sub TextBox14_Exit(ByVal Cancel As _
MSForms.ReturnBoolean)
Dim a As Date
With Me.TextBox14
If Not IsDate(.Text) And Not .Text = "" Then
.Text = ""
MsgBox "Bitte ein gültiges Datum eingeben!"
Cancel = True
Else
On Error Resume Next
.Text = CDate(.Text)
a = Me.TextBox14.Text
If IsDate(a) Then
Me.TextBox14 = FormatDateTime(a, vbShortDate)
End If
End If
End With
End Sub
Hat jemand eine Idee, wie ich das hinbekommen kann, dass in jedem Fall, wenn die Textbox verlassen wird, das Format umgesetzt wird?
Vielen Dank im Voraus
Gruß
Holger