ich möchte meine Nummerierung (1,2,3, etc.) mittels VBA neu formatieren: 1 soll zu A01, 2 zu A02, 3 zu A03 usw. formatiert werden.
Mein Code zur Nummerierung ist folgender:
Sub Nummerierung()
Dim i As Long
Dim kP As Variant
For i = 5 To Cells(Rows.Count, 1).End(xlUp).Row - 1 'Von Zeile 5 bis vorletzte Zeile in A
If Cells(i, 1).Interior.ColorIndex
Was muss ich hinzufügen, dass das Format geändert wird?
Ich komme selber nicht drauf..
Vielen Dank im Voraus :)
Anbei der Link. In der Spalte A wird meine Nummerierung erzeugt. In Spalte D wird das Zielformat dargestellt.
https://www.herber.de/bbs/user/131572.xlsm