Prüfung ob Datum gültig Userform Makro
21.11.2005 20:49:41
Heribert
Aus einer Userform mit 3 TxtBoxen übergebe ich an Exl ein Datum.
Die Länge der Zeichen pro TxtBox habe ich schon mit len(...) festgelegt.
Nun würde ich gerne ein falsches/ungültiges datum abfangen.
Tage kleiner 1 und grösser 31 und Monate kleiner 1 und grösser 12
Hier mein Versuch:
Das Datum wird dennoch an Exl übergeben.
Bitte um Korrektur, dankeschön
Private Sub CommandButton1_Click()
If TextBox1.Text > "31" Or TextBox2.Text > "12" Or TextBox1.Text < "1" Or TextBox2 < "1" Then
TextBox1.SetFocus
End If
Range("A7").Value = TextBox1.Value & "." & TextBox2.Value & "." & TextBox3.Value
End Sub
Gruss
Heribert
Anzeige