Office: Fehler 6 Ãœberlauf

Hallo,
habe beim Verlassen der ComboBox namens "Datum" folgendes eingebaut:


Private Sub Datum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If (Datum <> Format(Datum, "dd.mm.yyyy")) Then
MsgBox "FALSCHEINGABE! Format / Datum beachten! Nur dd.mm.yyyy zulässig! Beispiel: 01.01.2009", vbSystemModal, "Hinweis-Datumseingabe"
Datum = ""
Datum.SetFocus
End If
End Sub

Es soll verhindern, dass ein falsches Datumsformat eingegeben wird.

Jetzt hab' ich dies testen wollen und habe 10 Zahlen wie folgt eingetragen:

1234567891

Jetzt kommt der Fehler 6 Ãœberlauf!

Habt Ihr 'ne Lösung, wie ich den Fehler umgehen kann?
Wie kann ich meine Anweisung evtl. umschreiben, dass meine gewünschte Fehlermeldung auch in diesem Fall erscheint?

Gruß timi

 

Hallo timi,

der Ãœberlauffehler stammt von der VBA-Funktion FORMAT. Das kannst Du leicht testen, indem Du im Direktbereich des VBA-Editors Folgendes eingibst:
? Format(1234567891,"dd.mm.yyyy")
Die Zahl '1234567891' ist einfach zu groß für ein fortlaufendes Datum.

Der Exit-Event-Handler müsste, ausgehend von Deinen Vorgaben etwa so lauten:

Code:

Private Sub Datum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Dim IstDatum As Boolean
  IstDatum = IsDate(Datum.Value)
  If IstDatum Then
    IstDatum = Datum.Value = Format(CDate(Datum.Value), "dd.mm.yyyy")
  End If
  If Not IstDatum Then
    MsgBox "FALSCHEINGABE! Format / Datum beachten! Nur dd.mm.yyyy zulässig! Beispiel: 01.01.2009", vbSystemModal, "Hinweis-Datumseingabe"
    Datum.Value = ""
    Datum.SetFocus
  End If
  Cancel = not IstDatum
End Sub

In einem 1. Schritt wird getest, ob 'Datum.Value' (der Textinhalt des Combobox-Feldes) überhaupt in eine Datumsvariable umwandelbar ist und das Ergebnis in der log.Variablen 'IstDatum' gespeichert.
War das erfolgreich, wird ein präziserer Test versucht, indem 'Datum.Value' mittels Funktion 'CDate(..)' tatsächlich in eine Datumsvariable umgewandelt wird und diese sogleich wieder mit der Format(..)-Funktion in den Datumstext rückverwandelt wird. Damit auch dieser 2.Schritt positiv getestet werden kann, müssen der ursprüngliche Inhalt der Combobox und der rückverwandelte Datumstext gleich sein.
Falls nicht, wird im 3.Schritt eine MsgBox(...) geöffnet und der Fokus wieder auf die Combobox gestellt bzw. der Cancel-Rückgabeparameter auf TRUE gestellt.

 

Vielen herzlichen Dank!

Einfach nur PERFEKT!
Mein Problem wurde super gelöst und die Lösung bestens erklärt!

Gruß timi :-D