Hallo,
ich habe folgenden Code:
With TextBox5
If Not IsDate(.Text) Or _
InStr(.Text, ":") Or _
.TextLength 10 Then
Cancel = True
Beep
MsgBox "Falsche Datumseingabe." & Chr(13) _
& "Bitte Datum im Format TT.MM.JJJJ eingeben"
.SetFocus
.SelStart = 0
.SelLength = .TextLength
Exit Sub
End If
End With
2. probleme
1. der Code soll nicht ausgeführt werden, wenn die textbox5 leer ist
If textbox5 = "" then
hier weiß ich nicht was kommen muss... exit sub?
2. der oben stehende code ist nur ein Teil mittendrin. D.h. wenn ich mit exit sub arbeite bricht ja auch der noch folgende code ab, dass soll es aber nicht....
Ich hoffe jemand hat ne lösung parat.
Danke
Markus