Zeilen löschen - Excel stürzt ab

Hallo liebes Forum,
ich habe ein Skript geschrieben, mit dessen Hilfe Zeilen gelöscht und neue aus einer anderen Arbeitsmappe hinzugefügt werden sollen. Eigentlich funktioniert(e) alles. Es scheint mir jedoch so, dass es ab einer größeren Menge von zu löschenden Zeilen ein Problem gibt.
Für das Löschen der Zeilen habe ich eine Funktion geschrieben. Nachdem das Makro eine Weile läuft erhalte ich wahlweise einen Laufzeitfehler -02147417848 (80010108)' oder Excel schließt sich irgendwann einfach komplett. Bis wohin das Makro dann schon gelaufen sein könnte, weiß ich nicht.
Der Code sieht so aus:


Function zeilen_loeschen(sht As Worksheet, spalte As Long)
Dim rng As Range
Dim lzeile As Long
lzeile =  sht.Cells(Rows.Count, 1).End(xlUp).Row
With sht
Set rng = .Range(.Cells(1, 1), .Cells(lzeile, spalte))
With rng
.AutoFilter Field:=spalte, Criteria1:="angemeldet"
.Offset(5, 0).Resize(.rows.count - 5).SpecialCells(xlCellTypeVisible).rows.Delete
End With
With sht
.AutoFilterMode = False
If .FilterMode = True Then
.ShowAllData
End If
End With
End With
End Function


Call zeilen_loeschen(Mappe1, 39)

Das Workbook enthält ca 5000 Zeilen und davon müssen ca 40 gelöscht werden. Mit weniger zu löschenden Zeilen scheint es zu laufen.
Ist im Code etwas suboptimal oder weiß jemand was der Laufzeitfehler bedeuten könnte?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Zeilen_loeschen(WS As Worksheet, SpalteNr As Long, LöschKey As String, Optional ErsteZeile = 2, Optional LetzteZeile = 999999) Dim r If LetzteZeile = 999999 Then LetzteZeile = WS.Cells(999999, SpalteNr).End(xlUp).Row Application.ScreenUpdating = False For r = LetzteZeile To ErsteZeile Step -1 If StrComp(WS.Cells(r, SpalteNr).Value, LöschKey, vbTextCompare) Then wb.Cells(r, 1).EntireRow.Delete Next Application.ScreenUpdating = True End Sub

Function zeilen_loeschen(sht As Worksheet, spalte As Long) Dim lzeile As Long With sht lzeile = .Cells(.Rows.Count, 1).End(xlUp).Row With .Range(.Cells(1, 1), .Cells(lzeile, spalte)) If WorksheetFunction.CountIf(.Columns(spalte), "angemeldet") > 0 Then .AutoFilter Field:=spalte, Criteria1:="angemeldet" .AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete .AutoFilter End If End With End With End Function

Hi
beim Löschen von Zeilen auf diesem Weg ist die entscheidende Kenngröße, aus wie vielen einzelnen getrennten Zellbereichen das ganze Feld zusammengesetzt ist.
das Löschen von 1:1000 ist für Excel nicht aufwendiger als das Löschen einer einzigen Zeile, weil es ebenfalls nur ein einziger zusammenhängender Zellbereich ist. Das Löschen der Zeilen 1 und 3 (ohne die 2 dazwischen bedeutet hingegen den doppelten Aufwand.
Wobei 40 zu löschenende Zeilen jetzt nicht viel sind, das sollte Excel schon schaffen, egal wie vereinzelt die sind.
Trotzdem würde ich nicht den Autofilter zum Löschen von Zeilen verwenden, sondern das Duplikate entfernen.
das ist dabei schneller und leistungfähiger und hat kein Problem, egal wieviele Zeilen du löschst.
hierzu kennzeichnet man die zu löschenden Zeilen per Formel in einer Hilfsspalte mit 0 und die die stehen bleiben sollen mit der Zeilennummer.
dann wendet man das Duplikate entfernen an und die Zeilen mit 0 werden gelöscht.
der Code dafür sieht so aus:


with sht.usedrange
with .columns(.columns.count + 1)
.Formular1c1 = "=IF(row()

was mir an deinem Code auffällt ist das "..Rows.Delete". ich verwende an dieser Stelle wenn ganze Zeilen gelöschst werden sollen: ".EntireRow.Delete"
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Zeilen löschen - Excel stürzt ab

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread