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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen