Date-Format
06.09.2007 07:21:20
Gregor
Wie kann ich ein falsches Datum-Format abfangen, das mittels Input-Box eingegeben wird?
Dim Datum As Date
Datum = Cells(ActiveCell.Row, 3).Value
Datum = InputBox(prompt:="Wollen Sie das Datum Erst-Eintrag" _
& vbNewLine & vbNewLine & Datum _
& vbNewLine & vbNewLine & "übernehmen?" _
& vbNewLine & vbNewLine & "Wenn ja 'ok' drücken" _
& vbNewLine & "Wenn nein Datum ändern und 'ok' drücken", _
Title:=" Datum Erst-Eintrag", _
Default:=Datum)
Abfangen, wenn Eingabe zB. "" oder falsches Format.
Danke und Gruss Gregor