Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei Verlassen eines Textfeldes Prüfung, ob Datumseintrag

Gruppe

TextBox

Problem

Nach einer UserForm-Textfeldeingabe soll eine Datumsprüfung erfolgen und bei negativem Ergebnis das Verlassen des Textfeldes verhindert werden.

Lösung
Geben Sie den nachstehenden Code in das Klassenmodul der UserForm ein.

StandardModule: Modul1

Sub DialogAufruf()
   frmEingabe.Show
End Sub

ClassModule: frmEingabe

Private Sub cmdOK_Click()
   Unload Me
End Sub

Private Sub txtEingabe_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   With txtEingabe
      If Not IsDate(.Text) Then
         .Text = "Date only!"
         .SelStart = 0
         .SelLength = .TextLength
         Cancel = True
      End If
   End With
End Sub