Prüfung auf richtiges Datumsformat
09.08.2006 09:41:08
stefanseevetal
Ich habe ein Makro, dass Daten von einer in eine andere Tabelle übertragt. Vor der Übertragung möchte ich noch einige Zellen auf das richtige Format überprüfen. Ich habe folgenden Code geschrieben, aber leider funktioniert er nicht wie gewünscht. Denn auch wenn ich das richtige Datumsformat (z.B. 21.04.06) habe, erkennt er es nicht und gibt mir die Meldung aus. Genauso bei Uhrzeit. Hat da jemand ne Idee, wie ich das umbauen müsste, damit es funktioniert?
If Not Cells(8, 28).NumberFormat = "dd/mm/yy" Then
MsgBox "Bitte überprüfen Sie die Datumsangabe bei 'Schaden festgestellt' auf das richtige Format 'TT.MM.JJ'!", vbExclamation, "Achtung"
Exit Sub
ElseIF Not Cells(8,37).NumberFormat = "h:mm" Then
MsgBox "Bitte überprüfen Sie die Uhrzeitangabe bei 'Schaden festgestellt' auf das richtige Format 'H:MM'!", vbExclamation, "Achtung"
Exit Sub
Danke und Gruß,
Stefan