...wie kann ich sicherstelle, dass der User in einer Userform in einer Textbox ein Datumsformat eingibt ?
Gibt es da irgendwie eine Voreinstellung die auch dme User zeigt, dass er ein Datum (DD.MM.YYYY) einzugeben hat ?
Gruß
Kay
Function CheckDatum(Datum$) As Boolean
Dim MsgStr$
MsgStr = "Falsches Datumsformat"
If Len(Datum) 10 Then
CheckDatum = False
MsgBox (MsgStr)
Exit Function
End If
If Mid(Datum, 3, 1) "." Then
CheckDatum = False
MsgBox (MsgStr)
Exit Function
End If
If Mid(Datum, 6, 1) "." Then
CheckDatum = False
MsgBox (MsgStr)
Exit Function
End If
CheckDatum = True
End Function
Private Sub CommandButton1_Click()
With TextBox1 ' Überprüft die TextBox1 ob ein Eintrag _
vorhanden ist
If Not IsDate(.Text) Then ' Überprüft die TextBox1 ob ein Datum _
eingegeben wurde
MsgBox "Bitte geben Sie ein gültiges Datum ein!", 64, "Datumseingabe!"
.SetFocus
.Text = Format(Date, "dd.mm.yyyy")
.SelStart = 0
.SelLength = Len(.Text)
Exit Sub
End If
End With
End Sub
...und vielleicht hilft es.