ich benötige erneut die Hilfe von euch Profis, da ich in diversen Foren keine Lösung für mein Problem gefunden habe und mit meinem Latein am Ende bin.
Ich habe eine recht große dynamische Excelliste mit teils umfangreichen bedingten Formatierungen. Per Schaltfläche möchte ich vor der letzten Zeile eine neue einfügen und die Formatierung aus 2-3 Zeilen darüber bis zum Ende übernehmen, da es mir sonst die bedingte Formatierung zerschießt.
Manuell markiere ich bisher die letzte Zeile, füge mit STRG + eine neue darüber ein, markiere eine Zeile etwas weiter oben und ziehe die gesamte Formatierung nach unten. Mit dem Makrorecorder lässt sich das wunderbar aufzeichnen und nachvollziehen, jedoch fügt er ja immer an derselben Stelle die neue Zeile ein.
Folgende beide Codes funktionieren nur teils:
Sub NeueZeile1()
Rows(Cells(Rows.Count, 1).End(xlUp).Row).Select
Selection.Insert Shift:=xlDown
Rows(Cells(Rows.Count, 1).End(xlUp).Row - 3).Select
Selection.AutoFill Destination:=Selection.Resize(2, Selection.Columns.Count), Type:= _
xlFillFormats
End Sub
Sub NeueZeile2()
Dim lngLast As Long
lngLast = Cells(Rows.Count, 1).End(xlUp).Row
Set SourceRange = Range("A8:J8")
Rows(Cells(Rows.Count, 1).End(xlUp).Row).Select
Selection.Insert Shift:=xlDown
SourceRange.AutoFill Destination:=Range("A8:J" & lngLast), Type:=xlFillFormats
End Sub
Im ersten Makro markiert er mir nach dem Einfügen die 4.-letzte Zeile, aber übernimmt die Formatierung nicht bis zum Ende. Im zweiten schon, wobei ich nicht den festen Bereich A8:J8 bzw. A8:J angeben möchte, da die Spaltenzahl variieren kann und die Formatierung hier leider schon ab der ersten Zeile (in dem Fall 8) übernommen wird.Meine Versuche bei Destination:=Range den Startpunkt als dynamischen Bereich festzulegen endeten immer in Fehlermeldungen.
Ich würde mich freuen, wenn mir jemand helfen kann. Danke im Voraus.
Gruß, Marcus