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