Clever-Excel-Forum

Hallo,
leider finde ich nicht den richtigen Aufruf für das Einfügen von Spalten mittels Makro.
In der Beispieldatei sind insgesamt 5 Tabellenblätter, wobei die ersten vier wichtig wären.
Ich wollte nun mit meinem Makro eine Spalte einfügen und dazu sollte zur Textmarke "Spalte" gesprungen werden und dann in allen 4 Tabellenblätter an gleicher Stelle eine Spalte eingefügt werden und dann wieder auf Tabelle1 springen.
Viellicht kann sich jeman die Beispieldatei anschauen und mir einen Tipp geben? Leider kann ich nur mit dem VBA-Makrorekorder "umgehen".

es grüßt bei sonnigen Wetter

Hallo Wolferl,
mit

Code:
Sub Springe_Marker()

Dim bl As Variant, Blaetter(), Spalte

Blaetter = Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4")

Spalte = ActiveWorkbook.Sheets("Tabelle2").Range("Spalte").Column

For Each bl In Blaetter

  ActiveWorkbook.Sheets(bl).Columns(Spalte).Insert Shift:=xlToRight

Next bl

Sheets("Tabelle1").Activate

End Sub

sollte es gehen.
Einen schönen Restsonntag wünscht
der AlteDresdner

wolferl

AlterDresdner