TextBox nur Datum oder leer gültig???

Hallo liebe Helfer,
mit den 3 nachstehenden Codes wird in der TextBox nur die Eingabe eines Datums zugelassen. Funktioniert auch einwandfrei (Dank der CD von Hans). Ich möchte allerdings auch zulassen, dass man die TextBox verlassen kann, wenn sie leer ist (also entweder sie kann leer sein oder ein gültiges Datum enthalten)
Wer kann da helfen?


Private Sub TexBox5_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TexBox5.Text) < 10 Then Cancel = True
End Sub


Private Sub TexBox5_Change()
If Len(TexBox5.Text) = 10 Then
If IsDate(TexBox5.Text) = False Then
MsgBox "Kein gültiges Datumsformat"
End If
End If
End Sub


Private Sub TexBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) Like "[0-9. ]" = False Then
KeyAscii = 0
End If
End Sub

Vielen Dank
Peter S

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub TextBox5_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Dim xLen As Integer xLen = Len(TextBox5.Text) If xLen > 0 And xLen < 10 Then Cancel = True End If End Sub Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not (Chr(KeyAscii) Like "[0-9. ]") Then KeyAscii = 0 End If End Sub Private Sub TextBox5_Change() If Len(Me.TextBox5.Text) = 10 Then If Not IsDate(TextBox5.Text) Then MsgBox "Kein gültiges Datumsformat" End If End If End Sub

Hallo nach Klein-Paris,
vielen Danke für Deine Hilfe, klappt wirklich bestens. Ich habe den Code noch um 2 Zeilen erweitert. Ich wollte zusätzlich noch sicherstellen, dass man das Feld nicht mit einer falschen Eingabe verlassen kann, dies wäre jedoch nach erscheinen der MsgBox möglich gewesen.


Private Sub TextBox5_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim xLen As Integer
xLen = Len(TextBox5.Text)
If xLen > 0 And xLen < 10 Then
Cancel = True
End If
End Sub


Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not (Chr(KeyAscii) Like "[0-9. ]") Then
KeyAscii = 0
End If
End Sub


Private Sub TextBox5_Change()
If Len(Me.TextBox5.Text) = 10 Then
If Not IsDate(TextBox5.Text) Then
MsgBox "Kein gültiges Datumsformat, bitte im Format XX.XX.XXXX eingeben"
TextBox5.Text = ""
TextBox5 SetFocus
End If
End If
End Sub

Also nochmals besten Dank
Peter S.

Beliebteste Forumthreads (12 Monate)

TextBox nur Datum oder leer gültig???

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

TextBox nur Datum oder leer gültig???

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread