VBA - Bei Abbruch erscheint leider erst "Kein gültiges Datumsformat!"
28.11.2019 06:09:44
Wolfgang
zur Anzeige eines fehlerhaften Datumsformats steht Folgendes in meinem Code:
Private Sub txt_1_exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo DATUMERROR
DATUMERROR:
If Not IsDate(txt_1) Then
MsgBox "Kein gültiges Datumsformat!"
txt_1 = ""
txt_1.SetFocus
End If
Funktioniert und alles gut. Dann habe ich noch in den Code:Private Sub cmd_Abbruch_Click()
ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
Unload Me
End Sub
Was mich nun stört: Drücke ich direkt nach dem Öffnen der Maske auf "Abbruch" erscheint erst einmal "Kein gültiges Datumsformat!" Der Fakt stimmt ja, aber irgendwie finde ich es selbst nervig (und die anderen Anwender erst recht). Gebe ich vor dem "Abbruch" erst Daten in die Textboxen ein, funktioniert es. Aber das kann ja auch nicht die Lösung sein.Vielen Dank.
MfG Wolfgang