VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei Verlassen eines Textfeldes Prüfung, ob Datumseintrag

Gruppe

Dialog

Bereich

TextBox

Thema

Bei Verlassen eines Textfeldes Prüfung, ob Datumseintrag

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox