Makro läuft nicht. Zeile löschen wenn...

Sub loeschen() Dim loZeile As Long Application.ScreenUpdating = False For loZeile = 12 To 1 Step -1 If Cells(loZeile, 1) = 1 Then Rows(loZeile).Delete Next loZeile Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub loeschen() Dim loZeile As Long, rDel As Range Application.ScreenUpdating = False For loZeile = 12 To 1 Step -1 If Cells(loZeile, 15) = 1 Then If rDel Is Nothing Then Set rDel = Cells(loZeile, 1) Else Set rDel = Union(rDel, Cells(loZeile, 1)) End If End If Next loZeile If Not rDel Is Nothing Then rDel.EntireRow.Delete Application.ScreenUpdating = True End Sub

Hallo Christoph,
bei grösseren Listen empfehle ich - nicht nur aufgrund der Perfromance - die Zeilen nicht per Schleife zu suchen und zu löschen, sondern die Liste einfach per Autofilter in der entsprechenden spalte nach dem gewünschten Wert zu filtern und dann das Ergebnis des Autofilters zu löschen.
Hier ein auf Deine Anfrage zugeschnittenes Beispiel :

VBA-Code:

Sub AutoFilterZeilenLoeschen()
    ' Makro setzt Autofilter in O1, füllt die benutzerdefinierten Werte mit
    ' "=1" (filtert alle Zeilen mit Wert 1 in Spalte O) und löscht das Ergebnis
    ' aus Tabelle. Autofilter wird danach wieder deaktiviert
    'NoNet 2006, angepasst 01.07.2009
    Const intWert = 1 'Wert, nach dem in der Spalte gefiltert werden soll !
    Dim rngZelle As Range, lngS As Long, lngZ As Long
    Set rngZelle = ActiveSheet.[O1]
    lngS = rngZelle.CurrentRegion.Column
    lngZ = rngZelle.CurrentRegion.Rows.Count - rngZelle.Row + 1
    If Application.CountIf(rngZelle.Resize(lngZ), intWert) > 0 Then
        If Not ActiveSheet.AutoFilterMode Then rngZelle.AutoFilter
        With rngZelle
            'Alle Daten filtern, die in Spalte O eine 1 beinhalten :
            'evtl. Probleme wenn zahlen nicht als STANDARD formatiert sind
            .AutoFilter Field:=rngZelle.Column - lngS + 1, Criteria1:=intWert
            Intersect(Range(.Offset(1), _
                .CurrentRegion.SpecialCells(xlCellTypeLastCell)), _
                .CurrentRegion.SpecialCells(xlCellTypeVisible)).EntireRow.Delete
                'Wieder alle Werte anzeigen:
            .Parent.AutoFilterMode = False
            .Select
        End With
    Else
        MsgBox "Keine Zellen mit passendem Kriterium in Spalte O gefunden !"
    End If
    'Speicher für Objektvariable wieder freigeben :
    Set rngZelle = Nothing
End Sub
Probleme kann es geben, wenn die (Zahlen-)Werte der zu filternden Spalte nicht als STANDARD formatiert sind sondern z.B. als Datum, Währung etc.
Gruß, NoNet

Perfekt! Vielen Dank

Christoph

Danke allen, die sich hier so viel Mühe gegeben haben. Die Variante mit dem Autofilter klappt hervorragend und vor allem richtig schnell (10 Sekunden. Per Schleife ca. 15 Minuten!!!).
Viele Grüße aus dem Sauerland
Christoph

Mist: Laufzeitfehler 19 / Excel hängt sich auf

Christoph

Hallo NoNet,
tut mir leid, dass ich dich nochmal belästigen muss. Allerdings habe ich eben alle Daten in meine Tabelle eingefügt (nicht nur die paarhundert Testzeilen...).
Wenn ich jetzt das oben genannte Makro starte hängt sich meistens Excel auf. Symptome: Geblockt, als wenn das Makro noch läuft. Allerdings kommt die Berechnung zu keinem Ende, bis ich dann nach über 10 Minuten abbreche.
ZWischenzeitlich hatte ich dann auch "Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht gesetzt"
Googlen hat mich auf keinen grünen Zweig geführt, außer das dieser Fehler wohl meist bei irgendwelchen Suchfunktionen auftaucht.
Beim debuggen wird dann natürlich auch direkt der Teil deines Scripts angezeigt, den ich am wenigsten verstehe... :-(


Intersect(Range(.Offset(1), _
.CurrentRegion.SpecialCells(xlCellTypeLastCell)), _
.CurrentRegion.SpecialCells(xlCellTypeVisible)).EntireRow.Delete

Es wäre echt klasse, wenn du mir hier noch einmal aushelfen könntest.
Vielen, vielen Dank.
Christoph

AW: Mist: Laufzeitfehler 19 / Excel hängt sich auf

christophschmitz@gmx.net

Um die Sache abzuschließen:
Ich habe noch eine alternative Lösung gefunden:


Dim Zeilen As Integer
Dim Zeilen_loeschen As Integer
Zeilen = Sheets("Hilfsvariablen").Range("C4")
Range("A1:P" & Zeilen).Sort Key1:=Range("O2"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:= _
xlSortTextAsNumbers, DataOption2:=xlSortNormal
Zeilen_loeschen = WorksheetFunction.CountIf(Range("O2:O" & Zeilen), "1") + 1
Rows("2:" & Zeilen_loeschen).Delete Shift:=xlUp

Einfach sortieren, Zeilen zählen, zeilen löschen!
Das funktioniert in dem Fall aber leider nur, weil ich die 1 Suche und weiß, dass keine kleineren Zahlen vorkommen...
Danke allen. bis demnächst
Christoph


Intersect(Range(.Offset(1), _
.CurrentRegion.SpecialCells(xlCellTypeLastCell)), _
.CurrentRegion.SpecialCells(xlCellTypeVisible)).EntireRow.Delete

Es wäre echt klasse, wenn du mir hier noch einmal aushelfen könntest.
Vielen, vielen Dank.
Christoph

Dim Zeilen As Integer Dim Zeilen_loeschen As Integer Zeilen = Sheets("Hilfsvariablen").Range("C4") Range("A1:P" & Zeilen).Sort Key1:=Range("O2"), Order1:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, _ MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:= _ xlSortTextAsNumbers, DataOption2:=xlSortNormal Zeilen_loeschen = WorksheetFunction.CountIf(Range("O2:O" & Zeilen), "1") + 1 Rows("2:" & Zeilen_loeschen).Delete Shift:=xlUp

Beliebteste Forumthreads (12 Monate)

Makro läuft nicht. Zeile löschen wenn...

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro läuft nicht. Zeile löschen wenn...

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread