Hallo zusammen,
ich habe eine Tabelle mit mehrere Spalten als Text formatiert, die aber als Datum formatiert werden sollen. Ich habe folgendes Code benutzt:
Dim a As Long, i As Long
With Sheets("KDT (und IDT)")
.Columns(2).NumberFormat = "dd.mm.yyyy"
a = .Cells(Cells.Rows.Count, 1).End(xlUp).Row
For i = a To 2 Step -1
.Cells(i, 2).Value = CDate(.Cells(i, 2).Value)
Next
End With
Allerdings einige Zellen zwischendurch sind leer, mit meinem Code werden sie automatisch befüllt mit 00.01.1900. Wie kann ich das verhindern?
Dankeschön