Bestimmtes Eingabeformat in TextBox
25.11.2004 00:03:01
Drazen
ich möchte in einer UF die Eingabe in meine TextBox1 die Eingabe als 01.01.1999 - Format beschränken da mir die TextBox ja sonst die eingabe als Text in das Tabellenblatt weitergibt und ich mit dem eingegebenen Datum in der Tabelle weiter rechnen möchte. Also wenn jemand in meine UF z.B. einen Fehler eintippt ( 0101.1999, oder 111.11.1999) soll eine MsgBox erscheinen wo drin steht " Bitte im Format 01.01.1999 eingeben ", und die UserForm soll in den Leerzustand zurückgesetzt werden.
Ich habs bisher mit
On Error Goto Fehler usw versucht aber immer kam das Debbug-Fenster und das will ich auf jeden Fall vermeiden.
Weiss jemand Rat?
Hier mein bisheriger Code, alles geht ausser bei Falscheingabe:
Private Sub cmd_in_Click()
Sheets("Timer").Activate
Cells(1, 1) = DateValue(txt1)
Cells(1, 2) = 30
If DateValue(txt1) = Cells(1, 4) Then
MsgBox "Activation in progress.....", vbOKOnly
frm_INFO.Show
Unload Me
Else
MsgBox " Heutiges Datum !!! " & vbLf & _
" Nicht mogeln "
txt1 = ""
Cells(1, 1) = ""
Cells(1, 2) = ""
End If
End Sub
Grüsse
Drazen
Anzeige