ich habe einen SAP Download, den ich durch ein Makro quälen möchte.
Klappt alles gut, nur das Hinzufügen von Leerzeilen mach Probleme.
Das Excel besteht aus Überschrift und Master-Zeilen (Stücklistenkopf) und Slave Zeilen (Stücklistenpositionen). Über jede Masterzeile soll eine Leerzeile mit der Formatierung der Slave Zeile obendrüber hinzugefügt werden.
Klappt im Dialog prima und lässt sich auch aufzeichnen.
Ich aktiviere den Filter, selektiere (Spalte B ist in den Masterzeilen gelb ;-) auf Spalte B "Gelb", markiere dann alle Masterzeilen, wähle mit "Inhalt auswählen" nur die gefüllten Zeilen und dann kommt "Blattzeilen einfügen", also
Selection.Insert Shift:=xlDown
Das klappt im Dialog und der Makrorecorder schreibt das auch, aber beim Ausführen bekomme ich einen "1004". Selbst wenn ich alles im Dialog mache und dann ein Makro mit nur dieser Funktion ausführe kommt der 1004.
Mein Code:
Rows("1:1").Select
Selection.AutoFilter
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")
ActiveSheet.Range(Cells(2, 1), Cells((ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row), 1)).EntireRow.Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Insert Shift:=xlDown
Selection.AutoFilter
Für eine Idee wäre ich Euch sehr dankbar.
Gruß JJ