Zeilen löschen nach Auswahl

Sub Deb_Passiv_inaktive_Kunden_löschen() Dim rng As Range On Error Resume Next Set rng = Columns(9).SpecialCells(xlCellTypeConstants).EntireRow If Not rng Is Inaktiv Then rng.Delete On Error GoTo 0 Set rng = Inaktiv End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Deb_Passiv_inaktive_Kunden_löschen() Dim rng As Range On Error Resume Next With ActiveSheet.UsedRange.Columns(9) '.SpecialCells(xlCellTypeConstants) Set rng = .Find(What:="Inaktiv", LookIn:=xlValues, LookAt:=xlWhole) While Not rng Is Nothing rng.EntireRow.Select '.Delete .FindNext Wend End With End Sub

Sub Deb_Passiv_inaktive_Kunden_löschen() Dim rng As Range, rngC As Range, rngDel As Range Set rng = Columns(9).SpecialCells(xlCellTypeConstants) For Each rngC In rng If rngC = "Inaktiv" Then If rngDel Is Nothing Then Set rngDel = rngC Else Set rngDel = Union(rngDel, rngC) End If End If Next If Not rngDel Is Nothing Then rngDel.EntireRow.Delete End Sub

Hallo Luc und Rudi,
sorry, aber es funktioniert immer noch nicht.
Bei dem Sub von Luc markiert es die erste Zeile (in meinem Sheet die 8), der Bildschirm flackert ganz wild, doch auch nach fünf Minuten warten wird die zweite zu löschende Zeile (Zeile 15) noch nicht mal markiert.
Beim Abbruch über Esc wurde die Zeile Wend gelb markiert.
Bei dem Sub von Rudi bekomme ich die Fehlermeldung: Laufzeitfehler 1004: Del-Methode kann nicht angewendet werden. Beim Debuggen ist folgende Zeile gelb markiert:
If Not rngDel Is Nothing Then rngDel.EntireRow.Delete
Ich habe auch in anderen Beiträgen gelesen, dass es wichtig wäre, die betreffenden Zeilen von unten nach oben zu löschen. Kann es vielleicht daran liegen?
Danke Euch für die Unterstützung, Grüße,
Heidi

Sub Deb_Passiv_inaktive_Kunden_löschen() Dim rng As Range, rngC As Range, rngDel As Range Set rng = Range(Cells(2, 9), Cells(Rows.Count, 9).End(xlUp)) For Each rngC In rng If rngC = "Inaktiv" Then If rngDel Is Nothing Then Set rngDel = rngC Else Set rngDel = Union(rngDel, rngC) End If End If Next If Not rngDel Is Nothing Then rngDel.EntireRow.Delete End Sub

Hallo Rudi,
danke für Deine nochmalige Bemühungen. Ich konnte es jetzt, zumindest so halbwegs lösen mit:
Application.StatusBar = "Jetzt werden die Datensätze für inaktive Kunden und Interessenten gelöscht. Das kann ebenfalls dauern ..."
Dim i As Long ' Zeilenzähler
Dim tofind As Variant ' Hiernach wird gesucht
Dim found As Range ' Eine Fundstelle oder Nothing
tofind = "Inaktiv"
If tofind = "" Then Exit Sub
Application.ScreenUpdating = False
For i = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
Set found = Rows(i).Find(what:=tofind, LookIn:=xlValues, lookat:=xlWhole)
If Not found Is Nothing Then Rows(i).Delete
Next
Application.ScreenUpdating = False
Das habe ich gefunden, als ich vom Herber-Forum aus einen Link zu einem VBA-Kurs (versehentlich) angeklickt habe.
Das klappt, jedoch kann ich nicht die Spalte auswählen, in der gesucht werden soll. Das heißt, jetzt werden eben pauschal alle Zeilen mit einem Wert "inaktiv" gelöscht. Eigentlich wollte ich aber, dass nur die Werte aus der Spalte "Debitor" durchsucht werden und in der Spalte "Interessenten" die Werte stehen bleiben. Fürs Erste ist es jedoch o.k., nochmals vielen Dank für die Unterstützung.
Mit viel Geduld wirds schon langsam besser ...
Das Gute ist, dass bei uns (ca. 300 Mitarbeiter) alle Anderen noch weniger Ahnung haben :-)
VlG Heidi

Beliebteste Forumthreads (12 Monate)

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