Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Datum in Textbox erzwingen

Betrifft: Datum in Textbox erzwingen von: Daniel
Geschrieben am: 16.09.2004 06:41:55

Hallo Zusammen,

ich möchte gerne das in einer Textbox ein Datum eingegeben wird.
Der benutzer kann die Textbox erst verlassen wenn ein richtiges Datum eingegeben wurde.
Die Abfrage habe ich problemlos lösen können, jedoch wird der Tab oder der Mausklick, nach der Abfrage trozdem ausgeführt. Wie kann ich das unterbinden so der txtDatum.setfocus am schluss bestand hat?

Danke für Eure Hilfe.

  


Betrifft: AW: Datum in Textbox erzwingen von: Uwe Küstner
Geschrieben am: 16.09.2004 07:53:42

Hallo Daniel,

das 'Cancel = True' ist wichtig!
Private Sub txtDatum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next 'übergeht eventuelle Fehlermeldung beim Schließen der Form
If Not IsDate(txtDatum) Then
  txtDatum.SetFocus
  Cancel = True
End If
End Sub
Gruß Uwe


  


Betrifft: AW: Datum in Textbox erzwingen von: Daniel
Geschrieben am: 16.09.2004 09:20:40

Muchas Gracias


 

Beiträge aus den Excel-Beispielen zum Thema "Datum in Textbox erzwingen"