VBA Autofill mit dynamischen Bereich
27.08.2015 16:55:25
Marcus
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
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