HERBERS Excel-Forum - die Beispiele

Thema: Datumseingabe in Textfeld erzwingen

Home

Gruppe

DatumZeit

Problem

Wie kann ich in XL8 die Datumseingabe in ein Textfeld einer UserForm erzwingen?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
StandardModule: basMain

Sub CallForm()
   frmDatum.Show
End Sub

ClassModule: frmDatum

Private Sub cmdContinue_Click()
    Unload Me
End Sub

Private Sub txtDate_Change()
   Dim sTxt As String
   If txtDate.Text = "" Then Exit Sub
   sTxt = txtDate.Text
   If Right(sTxt, 1) Like "[!0-9]" Then
      txtDate.Text = Left(sTxt, Len(sTxt) - 1)
      Exit Sub
   End If
   If IsNumeric(sTxt) = False Then GoTo ERRORHANDLER
   If Len(sTxt) = 6 Then
      sTxt = Left(sTxt, 2) & "." & Mid(sTxt, 3, 2) _
            & "." & Right(sTxt, 2)
      If Not IsDate(sTxt) Then
         GoTo ERRORHANDLER
      Else
         txtDate.Text = sTxt
         Exit Sub
      End If
   End If
   Exit Sub
ERRORHANDLER:
    Beep
    MsgBox "Kein Datum!"
    txtDate.Text = ""
    txtDate.SetFocus
End Sub

Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Eingabe

VBA - Eingabefeld für gesamte Spalte Datenbank mit Eingabefenster
Excel VBA: 1x Eingabe für mehrere Filter in Pivot Nach erfolgter Eingabe Makro nicht ausführen wenn
In Userform Label bei Eingabe ändern Eingabemaske ändern, Daten übertragen
Zelleneingabe nur per Combobox erlauben Eingabe in gesamter Arbeitsmappe prüfen
Formatierung Dezimalzahlen bei Combobox-Eingaben Wenn X dann Ja, bei keiner Eingabe Nein
Textlänge bei Eingabe in Textbox begrenzen Zelleveränderung nach Eingabe
Kennworteingabe per Makro Dateneingabe mit Datum+Uhrzeit vervollständigen
Eingabemeldung auch für mehrere Zellen? Datumseingabe vereinfachen
Eingabefeld verliert Focus Eingabe bezogen auf eine eine Zelle
Eingabemastke großes Eingabefeld
Eingabe prüfen nach eingabe zweier zeichen automatisch zelle wech
Eingabe prüfen Eingabe von /
Eingabe erwzwingen? Alternative Eingaben über InputBox
UF Eingabe Monatstage abhängig von Texteingabe ermitteln
Wenn Eingaben im Bereich...dann Grafikobjekt nach Zelleingabe anpassen
Dateneingabe u. Arbeitsblatt kopieren datenbereich und manuelle eingaben in bezug setzen
Dateneingabe ohne Userform Eingabe von Nichts ("") schneidet Text ab
Button drücken während Zelleingabe Textboxeingabe prüfen
Eingabemaske DatumZeit subtrahieren ergibt falschen Monatswert
Eingabeformular InputBox - Eingabeformat abfangen
Zellen Sperren wenn Eingabe in übergeordnete Zeile Fenstereingabe(USerform) anwählen von Zellen
Eingabeformular Eingaben überprüfen / zur Eingabe "zwingen&qu
Eingabeprüfung Bei mehreren TextBoxen Eingabe prüfen
Textbox Eingabe prüfen Fenstereingabe von Daten
Nach dem Bestätigen der Eingabe in eine Zelle... gleichzeitige Eingabe in Bereiche