Herbers Excel/VBA-Archiv

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

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

Datum in Textbox erzwingen

• Datum in Textbox erzwingen von Daniel vom 16.09.2004 06:41:55
• AW: Datum in Textbox erzwingen - von Uwe Küstner am 16.09.2004 07:53:42
  • AW: Datum in Textbox erzwingen - von Daniel am 16.09.2004 09:20:40

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"