VBA - Bei Abbruch erscheint leider erst "Kein gültiges Datumsformat!"

Forumthread: VBA - Bei Abbruch erscheint leider erst "Kein gültiges Datumsformat!"

28.11.2019 06:09:44

Wolfgang

Hallo,
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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Exit Sub hilft ...

28.11.2019 06:30:36

Matthias
Korrektur ...

28.11.2019 07:01:51

Matthias
AW: Korrektur ...

28.11.2019 07:26:14

Wolfgang
AW: Exit Sub hilft ...

28.11.2019 07:04:01

Wolfgang

Exit Sub hilft ...

28.11.2019 06:30:36

Matthias

Hallo


Private Sub txt_1_exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo DATUMERROR
Exit Sub
DATUMERROR:
If Not IsDate(txt_1) Then
MsgBox "Kein gültiges Datumsformat!"
txt_1 = ""
txt_1.SetFocus
End If
End Sub

Gruß Matthias

Korrektur ...

28.11.2019 07:01:51

Matthias

Sollte so eher passen.
Würde ich aber nicht ins exit-ereignis schreiben


If Len(txt_1) > 0 Then
If Not IsDate(txt_1) Then
MsgBox "Kein gültiges Datumsformat!"
txt_1 = ""
txt_1.SetFocus
End If
End If

Gruß Matthias

AW: Korrektur ...

28.11.2019 07:26:14

Wolfgang

Hallo Matthias,
warum die Korrektur - "exit sub" (und die Zeile davor) musste ich nur ans Ende schieben (weil sonst das eingegebene Datum nicht in das richtige Format umgewandelt wurde), aber ansonsten konnte ich keine Probleme feststellen.
VG Wolfgang

AW: Exit Sub hilft ...

28.11.2019 07:04:01

Wolfgang

Hallo Matthias,
vielen Dank! Es funktioniert. "Exit Sub"-So einfach kann die Lösung sein. Und ich weiß, ich muss noch ganz viel lernen.
VG Wolfgang

Beliebteste Forumthreads (12 Monate)

VBA - Bei Abbruch erscheint leider erst "Kein gültiges Datumsformat!"

Forumthread: VBA - Bei Abbruch erscheint leider erst "Kein gültiges Datumsformat!"

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread