Effizientes Löschen von bestimmten Zeile

Hallo liebe Experten,

ich suche eine effektive Methode um bestimmte Zeilen aus einem Worksheet zu löschen. Das Worksheet "Analyse" hat ca 70.000 Zeilen. In der Spalte C steht ein Werkscode (Alphanumerisch). Auf einem anderen Worksheet ("Scope") steht in Spalte A eine Liste von Werkscodes.

Ich möchte jetzt alle Zeilen aus der Analyse Tabelle löschen, bei der das Werk NICHT im Scope genannt ist. Momentan löse ich das, indem ich erst die Werke aus Scope in ein Dictionary lade. Anschliessend gehe ich mit einem Loop durch die Analyse tabelle, verwende Clear contents für alle Zeilen bei denen das Werk nicht im Dictionary vorkommt. Anschliessend sortiere ich die Analyse tabelle. Erfahrungsgemäß ist das deutlich schneller, als wenn ich Zeile für Zeile lösche. Trotzdem bin ich mit der Performance nicht wirklich glücklich.

Vermutlich ist der beste Wege einen Autofilter auf alle Werke zu setzen, die nicht in der Liste vorkommen, und dann mittels UsedRange alles auf einen Schlag zu löschen. Ich habe aber noch keinen guten Weg gefunden, die Autofilterkriterien zu setzen.

Hat jemand eine Idee (oder code :-) )?
Die anghängte Datei zeigt nur die Struktur der Datei. Den Code habe ich Euch erspart :-)
https://www.herber.de/bbs/user/158458.xlsx

Danke schon mal

Theo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

HI
ich verwende in der Regel das hier:
1. markiere in einer Hilfsspalte per Formel alle Zeilen, die gelöscht werden sollen mit 0 und die die Stehenbleiben sollen, mit der Zeilennummer:

=Wenn(Bedingung für Löschen; 0; Zeile())

2. schriebe in die Überschriftenzeile der Hilfsspalte die 0
3. Wende auf die ganze Tabelle die Menüfunktion DATEN - DATENTOOLS - DUPLIKATE ENTFERNEN an, mit der HIlfsspalte als Kriterium
4. lösche die Hilfsspalte.

oder dieser Weg.
1. markiere auch wieder per Formel für löschen, aber diesmal mit 1 für löschen und "" für stehen bleiben
2. kopiere die Hiflsspalte und füge an gleicher Stelle als Wert ein.
3. sortiere die Liste nach der HIlfssplalte
4. markiere in der Hilfsspalte alle 1 (Inhalte auswählen - Werte - Zahlen
5. lösche jetzt diese Zellen mit der Option "ganze Zeile"

das sollte eigentlich das schnellste sein, wenn man es per Makro ausführt. Das zweite ist noch etwas schneller als das Erste.

Gruß Daniel

With Sheets("Analyse").UsedRange with .Columns(.columns.Count + 1) ´.FormulaR1C1 = "=IF(CountIf(Scope!R2C1:R8C1,RC2)=0,0,Row())" .Cells(1, 1).value = 0 .EntireRow.RemoveDuplicates .column, xlno .ClearContents end with end with

Sub Unit() 'Hilfsspalte = H (=8) With Worksheets("Analyse") With .Cells(1, 1).Resize(.Cells(.Rows.Count, 3).End(xlUp).Row, 8).Cells With .Columns(8) .FormulaR1C1 = "=IF(COUNTIF(Scope!R2C1:R8C1,RC3)=0,0,ROW())" .Formula = .Value End With .RemoveDuplicates Columns:=8, Header:=xlNo .Columns(8).Clear End With End With End Sub

Beliebteste Forumthreads (12 Monate)

Effizientes Löschen von bestimmten Zeile

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread