UserForm-Datumseingabe
29.01.2004 20:51:54
Holger T.
ich gebe über eine Textbox in einer UserForm Daten (u.a. mehrere Datums Eingaben) in eine Tabelle ein. Die Datums-Eingaben sollen im Format "dd.mm.yyyy" erfolgen; wird das Datum anders eingegeben soll eine MsgBox erscheinen mit .....usw.. Mit einem Code aus dem Archiv klappt das soweit auch gut. Anschließend soll bei falscher Datums-Eingabe der Inhalt der TextBox gelöscht und der Curser wieder an den Anfang der TextBox gesetzt werden. Bei dem Code aus dem Archiv bekomme ich die Fehlermeldung: "Fehler beim Kompilieren. Variable (ANMELDE_DIALOG) nicht definiert.
Ich verwende folgenden Code:
Private Sub txtGeburtstag_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(txtGeburtstag) Or Len(txtGeburtstag) <> 10 Then
Cancel = True
If IsDate(txtGeburtstag) Then txtGeburtstag = Format(txtGeburtstag, "dd.mm.yyyy")
MsgBox "Hinweise nicht gelesen? Geträumt ? Das Geburtstagsdatum soll im Format TT.MM.JJJJ und ohne Punkt eingeben werden !!!", vbOKOnly + vbCritical, "Fehlerhaftes Datum"
With ANMELDE_DIALOG.txtGeburtstag
.SelStart = 0
.SelLength = Len(.Value)
End With
End If
End Sub
Hat jemand einen Tip ?
Vielen Dank für die Mühe !
Holger T.