Makro, Rows(i).Delete -- schneller?

Application.ScreenUpdating = False letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row For i = letzteZeile To 2 Step -1 If (Cells(i, 99)) = "X" Then Rows(i).Delete End If Next i Application.ScreenUpdating = True

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim loLetzte As Long, i As Long, raWeg As Range Application.ScreenUpdating = False letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row For i = letzteZeile To 2 Step -1 If (Cells(i, 99)) = "X" Then If raWeg Is Nothing Then Set raWeg = Cells(i, 99) Else Set raWeg = Union(raWeg, Cells(i, 99)) End If End If Next i If Not raWeg Is Nothing Then raWeg.EntireRow.Delete End If Set raWeg = Nothing

HI
ob AutoFilter oder Union wirklich schneller sind, ist nicht sicher.
die Geschwindigkeit hängt hier vom Aufbau der Daten ab.
der WorstCase ist, dass jedes X einzeln steht. bespielsweise, wenn jede zweite Zeile gelöscht werden soll
x-x-x-x-x-x-x-x-x-x
dann ist Union oder Autofilter nicht schneller als die Schleife, es kann ab einer bestimmten Datenmenge sogar zum Absturz führen.
stehen die X jedoch in großer Anzahl lückenlos direkt untereinander, dann ist das sehr schnell (ggf sogar schneller als Duplikate entfernen)
dh optimal wäre hier so eine Folge:
----xxxxxxxx-----
Will man so arbeiten, würde sich ein vorheriges SORTIEREN sehr positiv auf die Performance auswirken (und im Sortieren ist Excel sehr schnell)
Allerdings besteht ja die Angabe, dass c.a. 4000 von 5000 Zeilen gelöscht werden sollen, dh eine gewisse Blockbildung der zu löschenden Zeilen ist gegeben.
Hintergund des ganzen ist, dass Excel beim Löschen von Zeilen eine Reihe von Aufgaben im Hintergrund erledigen muss.
Bilden die zu löschenden Zeilen einen lückenlosen Block, kann Excel diese Aufgaben für den ganzen Block in einem Schritt durchführen,
Stehen die Zeilen einzeln, müssen diese Aufgaben für jede Zeile einzeln durchgeführt werden.
Dh für die Gewschwindigkeit beim Löschen ist nicht entscheidend, wieviele Zeilen auf einmal gelöscht werden sollen, sondern wieviele lückenlose Blöcke vorhanden sind.
Gruß Daniel

Sub sbTest() Dim larloRowX() As Long, lloRow As Long, liIdx As Integer ReDim larloRowX(0) Application.ScreenUpdating = False For lloRow = 1 To Cells(Rows.Count, 99).End(xlUp).Row If Cells(lloRow, 99).Value = "x" Then larloRowX(UBound(larloRowX)) = lloRow ReDim Preserve larloRowX(UBound(larloRowX) + 1) End If Next ReDim Preserve larloRowX(UBound(larloRowX) - 1) For liIdx = UBound(larloRowX) To 1 Step -1 Rows(larloRowX(liIdx)).Delete Next Application.ScreenUpdating = True End Sub

Sub X_raus() Dim TB As Worksheet, Sp As Integer, Krit As String, LR As Long Set TB = Sheets("Tabelle1") Sp = 99 Krit = "X" With TB If .AutoFilterMode Then .AutoFilterMode = False LR = .Cells(.Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte If WorksheetFunction.CountIf(.Columns(Sp), Krit) Then ' Vorab prüfen .Columns(Sp).AutoFilter Field:=1, Criteria1:=Krit .Rows(2).Resize(LR).SpecialCells(xlCellTypeVisible).EntireRow.Delete 'gefilterte Zeilen löschen Else MsgBox "Keine '" & Krit & "' vorhanden" End If .AutoFilterMode = False End With End Sub

Beliebteste Forumthreads (12 Monate)

Makro, Rows(i).Delete -- schneller?

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread