Ich will mit einem Makro Spalten einfügen bzw die beschriebenen Spalten nach rechts verschieben.
Hier finde ich die Letzten beschriebenen Zellen.
col ist die Variable wo der neue Text stehen muss.
Wenn ich das Makro ausführe zeigt Excel einen Laufzeitfehler:
Die Insert-Methode des Range-Objektes konnte nicht ausgeführt werden.
Kann mir jemand sagen was ich falsch mache?
ENDEX = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
ENDEY = Cells(7, Columns.Count).End(xlToLeft).Column
Range(Cells(7, col + 1), Cells(ENDEX, ENDEY)).Insert Shift:=xlToRight