ich habe eine Userform mit einer Textbox, wo ein Datum eingefügt wird. Wenn kein Datum, dann verbleibe in Textbox. Das klappt auch alles sehr gut. Ich suche jetzt aber eine Möglichkeit, wenn kein Datum eingegeben wurde und Button Abbrechen (Unload Userform1) wurde gedrückt, soll Exit verlassen werden und dann Unload Userform1. Das Einfügen von If CommandButton6 =True... bewirkt nichts.
Der User muß erst ein Datum eingeben und kann erst dann Abbrechen drücken.
Wie kann ich mit einem Button die UserForm sofort schließen, wenn ein falsches Datum eingegeben wurde?
Vielen Dank für Euer Interesse und Hilfe.
Gruß
Wolfgang
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Prüfen, ob Datum in Textbox3
If IsDate(TextBox3) = False Then
MsgBox "Bitte korrektes Datum eingeben"
TextBox3 = ""
'Leider geht es so nicht
If CommandButton6 = True Then Exit Sub
Cancel = True 'Cursor weiterhin in Textbox1 belassen
End If
TextBox3 = Format(TextBox3, "dd.mm.yy")
End Sub
Private Sub CommandButton6_Click()
Unload UserForm1
End Sub