Wenn ich in einem Tabellenblatt 1 eine Spalte einfüge, soll es automatisch in nachfolgenden Tabellenblättern 2, 3 und 4 auch an der gleichen Stelle eine Spalte einfügen.
Kann man hierfür ein Makro schreiben?
Danke
Sub Makro3()
Dim i As Variant
For i = 1 To ActiveWorkbook.Sheets.Count
With ActiveWorkbook.Sheets(i)
.Activate
.Columns("B:B").Select
End With
Selection.Insert Shift:=xlToRight
Next i
End Sub
Sub SpaltenRein()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).Columns("B:B").Insert Shift:=xlToRight
Next i
Application.ScreenUpdating = True
End Sub
Gruß
Sub Makro3()
Hi Antje!
Hier das Makro für Zeilen. Wie bei Spalten, wird hier eine Zeile an der stelle 2 eingefügt.
Wahlweise kannst du auch das MAkro von Klaus nehmen. Mußt nur Columns durch row und B durch ne Zahl ersetzen
Dim i As Variant
For i = 1 To ActiveWorkbook.Sheets.Count
With ActiveWorkbook.Sheets(i)
.Activate
.Rows("2:2").Select
End With
Selection.Insert Shift:=xlToRight
Next i
End Sub