Anzeige
Archiv - Navigation
1724to1728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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
Anzeige
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
Anzeige
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige