UF Code - MsgBox und richtiges Format
09.11.2007 17:08:53
Heinz
Da ich meine Anfänge in UF mache,bitte ich euch um Überprüfung ob dieser Code stimmt.
Ich möchte hier im Auschnitt die 2 Textboxen mit Uhrzeit füllen hh:mm
Bei falscher Eingabe kommt die MsgBox.
Nur wenn ich ein 2.mal das falsche Format eintrage wird der falsche Wert übernommen.
Es sollte aber die MsgBox so lange kommen bis das richtige Format eingegeben wurde.
Danke Heinz
If txtMontagBeginn.Value "" Then Range("B44") = CDate(txtMontagBeginn) 'Montag kommt
If txtMontagEnde.Value "" Then Range("E44") = CDate(txtMontagEnde) 'Montag geht
'Bei falschen Werten in Textbox
Private Sub txtMontagBeginn_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With txtMontagBeginn
End With
With txtMontagEnde
If Not IsDate(.Text) Or .Text = "" Then
MsgBox "Bitte geben Sie die Zeit in hh:mm zb.14:15 ein!", 64, "Fehler"
Cancel = True
.Text = Format(Time, "hh:mm")
.SelStart = 0
.SelLength = Len(.Text)
End If
End With
End Sub