habe ein Problem mit dem Format des Datums welches über eine Textbox eingelesen wird.
Wie kann ich die Datumseingabe auf Ihre Gültigkeit im Euro Standart prüfen?
Hier der Script:
~
Private Sub CommandButton1_Click()
Dim dat As Date
Cur_Z = ActiveCell.Row
Cur_S = ActiveCell.Column
If IsDate(TextBox1) Then 'hier wird die Texbox geprüft
dat = CDate(TextBox1) 'jetzt passiert der Fehler, wenn zB das Datum falsch
'eingegeben wird "31.06.06" wir es als US "06.06.31"
'interpretiert und ebenso fals in die Zelle abgefüllt.
If CheckBox1.Value = False Then
Cells(Cur_Z, Cur_S).Value = dat - 14
Range("U13").Select
Else
Cells(Cur_Z, Cur_S).Value = dat
Range("U13").Select
End If
Unload Me
Range("U13").Select
Else
MsgBox "kein gültiges Datum!", vbExclamation
Range("U13").Select
End If
End Sub
~
Gruss
Martin