Folgendes Makro
For Each z In Range(Cells(8, 2), Cells(LetztezeileB, 2))
Selection.NumberFormat = "m/d/yyyy"
If z "" Then
x = z.Value
DatumZ = CDate(x)
z.Value = DatumZ
z.NumberFormat = "mm.dd.yyyy"
z.NumberFormat = "dd.mm.yyyy"
End If
Next
in der Spalte stehen folgende Daten in den Zelllen
5.29.2006 funktioniert
5/12/2006 funktioniert
Namen oder anderer Text funktionirt nicht, das Makro bricht bei "DatumZ = CDate(x)" ab
Bitte um Hilfe, wie ich das abfangen kann
Gruß Fritz
Kann mich nicht bedanken, weil da irgendetwas nicht funktioniert. Kann zwar einen Beitrag erstellen aber nicht antworten