Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

TextBox Datumsformat

TextBox Datumsformat
Arti
Hallo VBA-Experte,
ich habe für meine TextBox folgende Syntax erstellt, damit für diese nur Eingabeformat "tt.mm.jjjj" gültig ist.
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Const cDatum As String = "01.01.2000" '2000=Schaltjahr
Dim ka As Byte, dat As String
ka = KeyAscii
Select Case ka
Case 48 To 57, 46
Case Else: ka = 0
End Select
With Me.TextBox1
dat = .Text & Chr(ka) & Mid(cDatum, Len(.Text & Chr(ka)) + 1)
If Not IsDate(dat) Then ka = 0
If Val(Split(dat, ".")(1)) > 12 Then ka = 0
If Len(.Text & Chr(ka)) > 10 Then ka = 0
End With
KeyAscii = ka
End Sub
mein Problem ist, diese Syntax gilt nicht für 31.10.xxxx, und 31.12.xxxx, sonst funktioniert diese Syntax einwandfrei.
xxxx = beliebige Eingabe vom Jahr
für jede Hilfe bin ich dankbar
Grüße,
Sistemo

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: TextBox Datumsformat
23.11.2010 13:30:19
Rudi
Hallo,
ich finde es Quatsch die Eingabe zu prüfen, bevor sie komplett ist.
Beschränke die Möglichkeiten im KeyPress und prüfe die Eingabe in BeforeUpdate.
Gruß
Rudi
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige