Code 'Zeilen löschen' hängt in Endlossschleife

Sub sf_nicht_loeschen() Dim i As Long Application.ScreenUpdating = False For i = Cells(Rows.Count, 7).End(xlUp).Row To 5 Step -1 If Cells(i, 7) "sf" Then Rows(i).Delete Next i Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub sf_nicht_loeschen() Dim i As Long GetMoreSpeed(True) For i = Cells(Rows.Count, 7).End(xlUp).Row To 5 Step -1 If NOT(Cells(i, 7) = "sf" OR Cells(i,7) = "bc") Then Rows(i).Delete Next i GetMoreSpeed(False) End Sub Sub GetMoreSpeed(Optional ByVal Modus As Boolean = True) Static intCalculation as Integer If Modus = True Then intCalculation = Application.Calculation With Application .ScreenUpdating = Not Modus .EnableEvents = Not Modus .Calculation = IIf(Modus = True, xlManual, intCalculation) .Cursor = IIf(Modus = True, 2, -4143) End With End Sub

Sub sf_und_bc_nicht_loeschen() Dim i As Long, rngDel As Range For i = Cells(Rows.Count, 7).End(xlUp).Row To 5 Step -1 Select Case LCase(Cells(i, 7)) Case "sf", "bc" Case Else If rngDel Is Nothing Then Set rngDel = Cells(i, 7) Else Set rngDel = Union(rngDel, Cells(i, 7)) End If End Select Next i rngDel.EntireRow.Delete End Sub

Sub tt() Dim i As Long, j As Long, n As Long, tmp, tmp2(), t tmp = Range("A5").CurrentRegion ReDim tmp2(1 To UBound(tmp, 2), 1 To UBound(tmp)) t = Timer For i = 1 To UBound(tmp) Select Case tmp(i, 7) Case "sf", "bc" n = n + 1 For j = 1 To UBound(tmp, 2) tmp2(j, n) = tmp(i, j) Next j End Select Next i ReDim Preserve tmp2(1 To UBound(tmp, 2), 1 To n) With Range("A5") .CurrentRegion.ClearContents .Resize(n, UBound(tmp, 2)) = WorksheetFunction.Transpose(tmp2) End With Debug.Print Timer - t End Sub

Sub ttt() Dim t As Single t = Timer Columns(1).Insert With Range(Cells(5, 1), Cells(Rows.Count, 2).End(xlUp).Offset(0, -1)) .FormulaLocal = "=wenn(oder(h5=""sf"";h5=""bc"");Zeile();wahr)" .Formula = .Value .EntireRow.Sort key1:=.Cells(1, 1), order1:=xlAscending, header:=xlNo .SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete .EntireColumn.Delete End With Debug.Print Timer - t End Sub

Hi Gerd
...meinen Code mal getestet (im Einzelstepmodus vielleicht) ? wahrscheinlich nicht.
"Dann solltest dies bei deinem Code ebenfalls tun."
das setzen des Timers ist doch doch die erste Aktion in meinem Makro, weiter nach vorne kann ich es nicht stellen (die Variablendeklaration mit DIM sollte immer am Anfang stehen und ist was anderes als ne Variablenzuweisung - bitte nicht verwechslen)
Außderdem, falls es dir nicht aufgefallen sein sollte, mein Code verwendet keine Variablen, daher kann auch nichts zugewiesen werden (t ist ja nur drin, um die Zeit zu stoppen und kann im normalbetrieb entfallen.
das Rücksortieren ist ebenfalls nicht erforderlich, da die Formel für nicht zu löschende Zeilen die aktuelle Zeilen-Nr als Ergebnis hat, dh. beim Sortieren bleibt die originalreihenfolge erhalten (ausgenommen natürlich die zu löschenden Zeilen, aber für die ist es egal), dh. es muß nicht nochmal zurücksortiert werden!
und sollte es mal aus irgendeinem Grund doch erforderlich sein, dann macht das auch nicht viel aus, weil im Sortieren ist Excel auch bei grösseren Datenmengen fix wie nix.
Gruß, Daniel

Hallo
um zu prüfen, ob den dein Makro läuft, einfach mal auf ESC drücken, und dann auf DEBUGGEN gehen.
dann kannst du dir im Direktfenster die Variablen anzeigen lassen ("?i") und prüfen, ob das Makro läuft (zum Fortsetzen auf das blaue Icon klicken oder mit F8 im Einzelstepmodus arbeiten.
Zeilenlöschen in einer Schleife ist so ziemlich das inneffektivste, was man mit Excel machen kann, da gibt es wesentlich schnellere Methoden.
wesentlich schneller ist folgende Variante:
- Hilfsspalte einfügen
- Formel einfügen, die zu löschende Zeile mit einem Wahrheitswert kennzeichnet und in die anderen die aktuelle Zeiilen-Nr reinschreibt.
- über kopieren, Inhalte einfügen - Werte die Formeln durch werte ersetzen
- Daten nach Hilfsspalte sortieren
- über Bearbeiten - Gehte zu - Inhalte - Konstanten - Wahrheitswerte die zu löschenden Zellen selektieren und auf einen schlag löschen.
diese Mehtode ist je nach Datenmenge auch von Hand schneller als dein Makro.
wenn du es als Makro brauchst, kannst du ja mal den Recorder mitlaufen lassen.
den Code dazu hab ich schon mehrfach hier gepostet, beispielsweise hier: https://www.herber.de/forum/archiv/976to980/t976671.htm
(nach meinem Code suchen), der ist zwar für doppelte, aber was gelöscht wird, wird ja über die Formel gesteuert.
der erste Block mit sortieren kann für deine Zwecke entfallen.
als Formel zum Testen würde sich anbieten:
- Zellewerte müssen gleich sein: =wenn(oder(g5="SF";g5="BC");Zeile();wahr)
- Texte müssen in den Zellen enthalten sein: =wenn(zählenwenn(g5;"*SF*")+Zählenwenn(g5;"*BC*")>0;Zeile();wahr)
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

Code 'Zeilen löschen' hängt in Endlossschleife

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Code 'Zeilen löschen' hängt in Endlossschleife

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread