ich diese immer manuell nachziehen. Eine Zeile muss ich einfügen, wenn ich in mitten in der Tabelle eine Zeile ergänzen muss. Freue mich auf Lösungsvorschläge.
Sub t()
Dim Zeile1 As Long, Zeile2 As Long
Zeile1 = Selection.Row
Zeile2 = Selection.Row + Selection.Rows.Count - 1
Rows(Zeile1 & ":" & Zeile2).Insert
Rows(1).Copy Rows(Zeile1 & ":" & Zeile2)
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen