Nun möchte ich die nachträglich wieder einfügen lassen und zwar überall dort wo Spalte nur 5 Zeichen hat.
z.b. hier:
280605
70705 -- hier müsste eine 0 eingefügt werden
10805
Wie kann ich das per VBA automatisieren?
Sub test()
Dim c As Range
For Each c In ActiveSheet.Range("A:A")
If Len(c) = 5 Then c = "0" & c
Next c
End Sub
Sub STELLIG8()
Dim Z As Range, SP%, I$
SP = 1 ' Spalte A
For Each Z In Columns(SP).SpecialCells(xlCellTypeConstants, 1)
I = Format(Z, "000000")
Z.Value = DateSerial("20" & Right(I, 2), Mid(I, 3, 2), Left(I, 2))
Next
End Sub