Makro auf mehrern Tabellenblättern
30.08.2019 13:04:24
gelee93
mit eurer Hilfe habe ich es schon mal geschafft folgendes Makro zu schreiben.
Sub NeueZeile1()
Dim Zl As Long
Zl = ActiveCell.Row
ActiveCell.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
With Sheets("7_1 u 7_2")
.Cells(Zl + 8, 1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
For Each Zelle In .Range(.Cells(Zl + 7, 1), .Cells(Zl + 7, .Columns.Count).End(xlToLeft))
If Zelle.HasFormula Then
Zelle.Copy
Zelle.Offset(1, 0).PasteSpecial xlPasteFormulas
End If
Next
Application.CutCopyMode = False
End With
Zl = ActiveCell.Row
With Sheets("Station 7 gesamt")
.Cells(Zl + 8, 1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
For Each Zelle In .Range(.Cells(Zl + 7, 1), .Cells(Zl + 7, .Columns.Count).End(xlToLeft))
If Zelle.HasFormula Then
Zelle.Copy
Zelle.Offset(1, 0).PasteSpecial xlPasteFormulas
End If
Next
Application.CutCopyMode = False
End With
End Sub
das klappt auch soweit sehr gut.
Nun habe ich noch weitere Tabellenblätter, ca. 30, bei denen den einen Teil auch ausführen muss. Gibt es eine Möglichkeit das irgendwie zu automatisieren, um nicht alle Tabellenblätter zu ergänzen? Möglicherweise kommen im Nachhinein noch weitere Blätter hinzu.
Wichtig dabei ist noch, dass auf Tabellenblatt 1 und 2 das Makro nicht angewendet werden soll.
Besten Dank und Grüße,
Jelle