Schönen Guten Abend und ein tolles Wochenende wünsche ich euch!!!
Ich arbeite mit folgenden Codes:
Private Sub OptionButton1_Click()
TextBox1 = "01.01.1900"
TextBox13 = "01.01.1900"
TextBox1.ForeColor = &H80000006
TextBox13.ForeColor = &H80000006
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox1) Then
MsgBox "Kein gültiges Datum!", vbCritical, "Falsches Datum"
TextBox1 = ""
MsgBox "Bitte geben Sie ein korrektes Datum ein!"
Cancel = True
Exit Sub
End If
End Sub
Nun wenn ich auf den optionButton klicke kommt die Fehlermeldung "Kein gültiges Datum". Wo liegt der Fehler?
Danke für eure Hilfe!!!
Gruß Frank H.