Zeile löschen wenn in Spalte A das Wort "Summe"

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim lngLetzte As Long Dim i As Long lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row For i = lngLetzte To 1 Step -1 If Cells(i, 1).Value = "Summe" Then Rows(i + 1).Delete Rows(i).Delete End If Next End Sub

Hi
Auch der Autofilter kann bei sehr großen Datenmengen in die Knie gehen.
beim Löschen von Zeilen in großen Datenmengen ohne Sortieren sollte man das Duplikate-Entfernen verwenden.
Das ist sehr schnell und funktioniert auch bei größten Datenmengen.
hierzu schreibt man in eine Hilffspalte am Tabellenende eine Formel, welche alle Zeilen die gelöscht werden sollen mit 0 kennzeichnet und alle die Stehen bleiben müssen mit der Zeilennummer.
in die Überschriftenzeile kommt ebenfalls die 0
dann wendet man auf die ganze Tabelle das Daten-Datentools-Duplikate Entfernen an, mit der Hilfsspalte als Kriterium.
geht natürlich auch als Makro:

Sub test()
With ActiveSheet.UsedRange
With .Columns(.Columns.Count + 1)
.Select
With .Offset(1, 0).Resize(.Rows.Count - 1, 1)
.FormulaR1C1 = "=If(Or(RC1=""Summe"",R[-1]C1=""Summe""),0,Row())"
End With
.Cells(1, 1).Value = 0
.EntireRow.RemoveDuplicates .Column, xlNo
.ClearContents
End With
End With
End Sub

Gruß Daniel

Doch, es spricht was dagegen.
auch wenn die Anzahl der Fragmente nicht mehr limiert ist, ist die Bearbeitungszeit proportional zur Anzahl der Fragmente.
Das Problem ist wahrscheinlich folgendes:
Wenn Excel Zeilen löscht, muss es überprüfen, ob irgendwo eine Formel existiert, deren Zellbereich aufgrund der Löschung geändert werden muss.
Diese Überprüfung muss es für jedes Fragment separat vornehmen. dh. je stärker fragmentiert die zu löschenden Zeilen vorliegen, um so länger dauert das Löschen.
durch sortieren der Daten, so dass die zu löschenden Zeilen einen Block bilden, lässt sich der Löschvorgang stark beschleunigen.
alternativ kann man das Duplikate-Entfernen zum Löschen der Zeilen verwenden.
Da beim Duplikate-Entfernen keine Anpassung der Zellbezüge in den Formeln stattfindet, ist es auch bei stark fragmentierten Löschbereichen sehr schnell.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Zeile löschen wenn in Spalte A das Wort "Summe"

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile löschen wenn in Spalte A das Wort "Summe"

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread