Zeile einfügen und Format übernehmen
29.01.2021 09:47:10
Nicolai
habe folgende Aufgabe:
1. Ich möchte in Tabellenblatt A eine neue Zeile einfügen. Diese soll dann in Tabellenblatt B _ auch automatisch übernommen werden. Das habe ich wie folgt gelöst, Zeile anklicken, Makro ausführen, funktioniert:
Sub NeueZeile()
Dim Zl As Long
Zl = ActiveCell.Row
ActiveCell.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
With Sheets("MSR")
.Cells(Zl, 1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End With
End Sub
2. Nun möchte ich jedoch, dass in der neuen Zeile auch die Formeln und die Formatierung der darunterliegenden Zeile übernommen wird, unzwar in Tabellenblatt A und Tabellenblatt B.
Kann mir jemand weiterhelfen?
Vielen Dank vorab,
Gruß Nicolai