ich versetze die Zellinhalte von Spalte A immer eine Zeile nach unten.
Klappt auch prima. Nur warum fügt das Makro anschließend eine ganze Spalte ein?
A ist dann leer und alles ist nach rechts verschoben...
Sub Umbau()
Dim lgZeile As Long
Columns("A:A").Select
Selection.Insert Shift:=xlDown
Selection.ColumnWidth = 16.43
Range("A1").Select
For lgZeile = Range("C65536").End(xlUp).Row To 3 Step -1
Cells(lgZeile - -1, 2) = Cells(lgZeile, 2)
'Rows(lgZeile).Delete
Next
End Sub
Was mache ich da falsch ?
Gruß
Jutta