'....
zWert = True
 
For Row = Startzeile To Endzeile
             Zelle = "B" + LTrim(Str(Row))
             xText = ActiveSheet.Range(Zelle).Value
 
             If Not DatumGetestet(xText) = False Then  'richtige 
             ' Datumschreibweise!
                xText = Format(DatumGetestet(xText), "dd.mm.yyyy")
 
                    Else  'falsche Datumschreibweise!
                       'MsgBox "Falsches datum Reihe B Zelle " & Zelle & " !"
                       ZelleName = Zelle
                            zWert = False
                End If
 
     Next
 
'....
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'++++++++++++++++++++ Datumsformat überprüfen - Anfang 
' +++++++++++++++++++++++++++++++++
Function DatumGetestet(xDatum$) As Variant
  'Funktion erkennt A L L E fehlerhaften Datumsangaben
  'Auch Überprüfung auf Monat 28, 30 oder 31 Tage (bei Februar auf Schaltjahre)
  'nur Ziffern angaben zulässig (oder die Formate erweitern)
 
'Function gibt bei Fehler False (Boolean) und bei gültigem Datum das Datum ( 
' Date) zurück
DatumGetestet = False
If IsDate(xDatum$) Then
 Select Case xDatum$
  Case Format(CDate(xDatum$), "d/m/yy"), _
       Format(CDate(xDatum$), "d/m/yyyy"), _
       Format(CDate(xDatum$), "d/mm/yy"), _
       Format(CDate(xDatum$), "d/mm/yyyy"), _
       Format(CDate(xDatum$), "dd/m/yy"), _
       Format(CDate(xDatum$), "dd/m/yyyy"), _
       Format(CDate(xDatum$), "dd/mm/yy"), _
       Format(CDate(xDatum$), "dd/mm/yyyy")
   DatumGetestet = CDate(xDatum$)
 End Select
End If
 
End Function
'++++++++++++++++++++ Datumsformat überprüfen - Ende 
' +++++++++++++++++++++++++++++++++

__________________________________________
Wenn ich alles w??te, w?re ich nicht hier.