ich versuche es nochmal etwas simpler.
Ich habe auf Zeilen gefiltert und will über diesen Zeilen jeweils eine Leerzeile einfügen:
Mein Code:
'Erste Zeile Autofilter aktivieren:
Rows("1:1").Select
Selection.AutoFilter
'Nun selektieren auf Spalte B "gelb" (jaja ich weiß grausam, aber SAP liefert nunmal diese Formatierung und dann nutze ich sie auch ;-)
ActiveSheet.Range(Cells(1, 1), Cells((ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row), ActiveSheet.Cells(1, Columns.Count).End(xlUp).Column)).AutoFilter Field:=2, Criteria1:=RGB(255, _
238, 9), Operator:=xlFilterCellColor
' ActiveSheet.Rows(C Range(Cells(1, 1), Cells((ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row), ActiveSheet.Cells(1, Columns.Count).End(xlUp).Column)).Select 'Rows("2:535")
'Nun selektiere ich alle Zeilen abhängig von der Größe der Tabelle
ActiveSheet.Range(Cells(2, 1), Cells((ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row), 1)).EntireRow.Select
'Nun sorge ich dafür, da gefiltert, dass nur die gefilterten Zeilen selektiert werden.
Selection.SpecialCells(xlCellTypeVisible).Select
'nun versuche ich Zeilen einzufügen und hier kommt der Fehler 1004.
Selection.Insert Shift:=xlDown
Ich habe das Makro schon auf diese Zeile begrenzt und alle Schritte vorher manuell gemacht. Trotzdem Fehler. Dann habe ich alles manuel gemacht, kein Fehler. Wenn ich das dann aufzeichne kommt der Code raus, nur halt mit festem Zellbezug, anstatt den ".counts".
Irgend jemand 'ne Idee. Ziel ist, dass ich über allen gelben Zeilen eine Leerzeile einfüge.
Danke im Voraus.
Gruß JJ