Microsoft Excel

Herbers Excel/VBA-Archiv

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

Textfeld als Datum

Betrifft: Textfeld als Datum
von: André S.
Geschrieben am: 16.04.2003 - 16:50:59

Hallo Ihr da,
meine Frage ist, wie man es einem Textfeld in einer Userform bebringt, dass man nur ein Datum und nichts anderes eingeben kann.
Da ich erst kürzlich mit VBA angefangen habe, hab' ich noch nicht so den richtigen Durchblick.

Es wäre schön, wenn mir jemand helfen könnte - Danke einstweilen.
André S.


  

Re: Textfeld als Datum
von: ChrisL
Geschrieben am: 16.04.2003 - 17:06:48

Hallo André

Am einfachsten mit folgender Abfrage...

If IsDate(TextBox1) = False Then
MsgBox "Fehler: Datumsformat fehlerhaft."
Exit Sub
End If

Gruss
Chris

  

Re: Textfeld als Datum
von: gordon
Geschrieben am: 16.04.2003 - 17:08:28

Hallo André,


Private Sub UserForm_Click()
If IsDate(TextBox1.Value) Then
MsgBox ("DATUM")
Else
MsgBox ("KEIN DATUM")
Me.TextBox1.SetFocus
End If
End Sub

Gruß
gordon

  

Re: Textfeld als Datum
von: André S.
Geschrieben am: 16.04.2003 - 19:18:47

Vielen Dank für die schnelle Hilfe.
Werde es dann gleich mal ausprobieren.

Gruß André


  

Re: Textfeld als Datum
von: André S.
Geschrieben am: 16.04.2003 - 19:21:24

Recht herzlichen Dank für deine Hilfe - werde es dann gleich austesten.

Gruß André

 

Beiträge aus den Excel-Beispielen zum Thema "Textfeld als Datum"