Spalte in tabellenblätter an bestimmter Stelle per vba einfügen

[wolferl]

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

[AlterDresdner]

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