Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1472to1476
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Blattzeile einfügen bei gesetztem Filter - Fehler

Blattzeile einfügen bei gesetztem Filter - Fehler
05.02.2016 13:26:22
JJ
Hallo Zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattzeile einfügen bei gesetztem Filter - Fehler
09.02.2016 13:37:40
JJ
Dank Daniel erledigt, siehe 1474284 - Leere Zeile einfügen wirft Fehler 1004 -Autofilter.
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige