Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datumsformat in TextBox

Forumthread: Datumsformat in TextBox

Datumsformat in TextBox
20.01.2005 13:57:26
alfisti
Hallo zusammen
Ich habe eine UserForm erstellt aus der unter anderem ein Datum in ein Dokument übernommen werden soll.
Da auch das Datum in einen Barcode umgewandelt wird muss ich zwingend das Format "TT.MM.JJJJ" vorgeben. (Vorgabe vom Scandienstleister)
Bisher habe ich einfach nur eine TextBox in der man das Datum eingeben soll. Leider kann dort aber auch alles andere eingegeben werden und es gibt keine Plausibilitätsprüfung.
Wie kann ich dem User vorgeben, dass er das Datum in dem bestimmten Format eingeben muss? Toll wäre auch, eine automatische Änderung von "JJ" zu "JJJJ".
Für eine Idee wäre ich dankbar.
Gruß
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumsformat in TextBox
u_

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo errhandler
TextBox1 = Format(CDate(TextBox1), "DD.MM.YYYY")
Exit Sub
errhandler:
MsgBox "Kein Datum!"
TextBox1.SetFocus
End Sub

Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Datumsformat in einer TextBox richtig einstellen


Schritt-für-Schritt-Anleitung

Um sicherzustellen, dass das Datum in einer TextBox im Format "TT.MM.JJJJ" eingegeben wird, kannst Du die folgende Schritt-für-Schritt-Anleitung befolgen:

  1. Öffne die UserForm in Excel, in der sich die TextBox befindet.
  2. Klicke mit der rechten Maustaste auf die TextBox und wähle „Code anzeigen“.
  3. Füge den folgenden VBA-Code ein:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    On Error GoTo errhandler
    TextBox1 = Format(CDate(TextBox1), "DD.MM.YYYY")
    Exit Sub
errhandler:
    MsgBox "Kein Datum!"
    TextBox1.SetFocus
End Sub
  1. Speichere die Änderungen und teste die UserForm. Die TextBox sollte nun eine Plausibilitätsprüfung für das Datumsformat durchführen.

Häufige Fehler und Lösungen

Einige häufige Fehler, die auftreten können, sind:

  • Eingabe eines falschen Formats: Wenn der Benutzer ein Datum in einem anderen Format eingibt, zeigt die MessageBox die Warnung „Kein Datum!“ an und der Fokus wird zurück auf die TextBox gesetzt.
  • Falsche Datumsangaben: Wenn das Datum nicht in einem gültigen Format eingegeben wird, kann es zu einem Laufzeitfehler kommen. Stelle sicher, dass die Benutzer auf die Eingabe achten.

Alternative Methoden

Es gibt verschiedene Möglichkeiten, um sicherzustellen, dass das Datum korrekt eingegeben wird:

  • Verwendung eines Date-Pickers: Du kannst einen Kalender- oder Date-Picker in Deine UserForm integrieren, um die Eingabe zu erleichtern. Dies stellt sicher, dass der Benutzer das Datum im richtigen Format auswählt.
  • Eingabemaske: Erstelle eine Eingabemaske, die es dem Benutzer erleichtert, das Datum im gewünschten Format einzugeben.

Praktische Beispiele

Hier sind einige praktische Beispiele, wie die TextBox verwendet werden kann:

  • Beispiel 1: Wenn der Benutzer „01.05.23“ eingibt, wird dies automatisch in „01.05.2023“ umgewandelt, bevor es an das Dokument übergeben wird.
  • Beispiel 2: Bei der Eingabe von „31.02.2023“ wird eine Fehlermeldung angezeigt, da der 31. Februar nicht existiert.

Tipps für Profis

  • Fehlerbehandlung erweitern: Du kannst die Fehlerbehandlung im VBA-Code erweitern, um spezifischere Fehlermeldungen zu geben.
  • Formatierung anpassen: Überlege, ob Du die Formatierung bei der Ausgabe anpassen musst, um sicherzustellen, dass der Barcode korrekt generiert wird.

FAQ: Häufige Fragen

1. Wie kann ich das Format ändern?
Du kannst das Datumsformat im VBA-Code anpassen, indem Du die "DD.MM.YYYY"-Formatierung änderst.

2. Welche Excel-Version benötige ich?
Die oben genannten Schritte und der VBA-Code sind mit Excel 2007 und späteren Versionen kompatibel. Stelle sicher, dass Du die richtigen Berechtigungen hast, um VBA-Code auszuführen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige