ich möchte das Datumsformat von 01.01.17 auf 01.01.2017 ändern.
Sub Datum()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Tabelle1")
For i = 2 To .Cells(Rows.Count, "B").End(xlUp).Row
.Cells(i, "B").Copy .Cells(i, "A")
.Cells(i, "A").NumberFormat = "dd.mm.yyyy"
Next i
End With
Application.ScreenUpdating = True
End Sub
Leider funktioniert es nicht.
Was mache ich falsch?
Danke!
Gruß
Sigi
https://www.herber.de/bbs/user/143415.xlsm