Hallo zusammen,

ich habe eine Excel, bei der in der oberen Zeile Projekte angelegt sind und unten dran sind mehrere gleiche Tabellen mit einer Nummerierung als Überschrift (Jedem Projekt ist dadurch eine Nummer zugeordnet).

Es kann vorkommen, dass ein neues Projekt mittendrin hinzu kommt und somit müsste ich eine komplette Spalte hinzufügen. Da dies nicht geht (Fehlermeldung: "Es wird veruscht, Zellen in eine Tabelle im Arbeitsblatt zu verschieben"), habe ich ein Makro geschrieben, welches in jeder Tabelle und im oberen Bereich eine Zeile hinzufügt.

Jedoch passiert dadurch, dass die Gruppierungen sich nicht mit verschieben.

Gibt es nun ein Makro, welches mir alle Gruppierungen, ab der ausgewählten Spalte, nach rechts verschiebt?

Vielen Dank schonmal für eure Hilfe!
 

Hallo zusammen,

ich habe eine Excel, bei der in der oberen Zeile Projekte angelegt sind und unten dran sind mehrere gleiche Tabellen mit einer Nummerierung als Überschrift (Jedem Projekt ist dadurch eine Nummer zugeordnet).

Es kann vorkommen, dass ein neues Projekt mittendrin hinzu kommt und somit müsste ich eine komplette Spalte hinzufügen. Da dies nicht geht (Fehlermeldung: "Es wird veruscht, Zellen in eine Tabelle im Arbeitsblatt zu verschieben"), habe ich ein Makro geschrieben, welches in jeder Tabelle und im oberen Bereich eine Zeile hinzufügt.

Jedoch passiert dadurch, dass die Gruppierungen sich nicht mit verschieben.

Gibt es nun ein Makro, welches mir alle Gruppierungen, ab der ausgewählten Spalte, nach rechts verschiebt?

Vielen Dank schonmal für eure Hilfe!

Sub Projekteinfuegen()


Range(Cells(1, ActiveCell.Column), Cells(14, ActiveCell.Column)).Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove


For i = 1 To ActiveSheet.ListObjects.Count
ActiveWorkbook.Worksheets(1).ListObjects(i).ListColumns.Add Position:=ActiveCell.Column

Next

ActiveSheet.ListObjects(1).Range(1, ActiveCell.Column).Select

Selection.Value = InputBox("Wählen sie bitte einen Namen für diese Zeile", "Eingabe", Environ(" _
username"))

For j = 2 To ActiveSheet.ListObjects.Count
ActiveCell.Copy Destination:=ActiveSheet.ListObjects(j).Range(1, ActiveCell.Column)

Next


End Sub