Gefundene Datensätze variabel markieren

Hallo zusammen,
ich möchte aus einer Liste bestimmte Datensätze löschen. Dazu habe ich folgendes aufgezeichnet:
Cells.Select
Range("B1").Activate
Selection.AutoFilter
Application.Goto Reference:="C2"
Application.Left = 730.75
Application.Top = 185.5
ActiveSheet.Range("$A$1:$AH$6476").AutoFilter Field:=2, Criteria1:="139302"
Rows("224:224").Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$A$1:$AH$6475").AutoFilter Field:=2, Criteria1:="139328"
Rows("224:225").Select
Selection.Delete Shift:=xlUp
Nun sind die gefundenen Datensätze natürlich nicht immer in der/den oben angegebenen Zeile(n). Wie muß ich das VBA-Statement so anpassen, daß es mir immer nur die gefundenen Datensätze (-Zeilen) markiert und löscht.
MfG
Christoph

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim lng_letzteZeile As Long With ActiveSheet lng_letzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row Application.DisplayAlerts = False .Range("$A$1:$AH$" & lng_letzteZeile).AutoFilter Field:=2, Criteria1:="139302" .Rows(1).Hidden = True .Range("$A$1:$AH$" & lng_letzteZeile).SpecialCells(xlCellTypeVisible).Delete .Rows(1).Hidden = False .Range("$A$1:$AH$" & lng_letzteZeile).AutoFilter Field:=2, Criteria1:="139328" .Rows(1).Hidden = True .Range("$A$1:$AH$" & lng_letzteZeile).SpecialCells(xlCellTypeVisible).Delete .Rows(1).Hidden = False .AutoFilterMode = False Application.DisplayAlerts = True End With End Sub

Sub test() Dim lng_letzteZeile As Long With ActiveSheet lng_letzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row Application.DisplayAlerts = False .Range("$A$1:$AH$" & lng_letzteZeile).AutoFilter Field:=2, Criteria1:="139302" .Range("$A$2:$AH$" & lng_letzteZeile + 1).SpecialCells(xlCellTypeVisible).Delete .Range("$A$1:$AH$" & lng_letzteZeile).AutoFilter Field:=2, Criteria1:="139328" .Range("$A$2:$AH$" & lng_letzteZeile + 1).SpecialCells(xlCellTypeVisible).Delete .AutoFilterMode = False Application.DisplayAlerts = True End With End Sub

Sub test() Dim lng_letzteZeile As Long With ActiveSheet lng_letzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row Application.DisplayAlerts = False .Range("$A$1:$AH$" & lng_letzteZeile).AutoFilter Field:=2, Criteria1:="139302" .Rows(1).Hidden = True If .Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Count >= _ 1 Then .Range("$A$1:$AH$" & lng_letzteZeile).SpecialCells(xlCellTypeVisible).Delete End If .Rows(1).Hidden = False .Range("$A$1:$AH$" & lng_letzteZeile).AutoFilter Field:=2, Criteria1:="139328" .Rows(1).Hidden = True If .Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Count > _ = 1 Then .Range("$A$1:$AH$" & lng_letzteZeile).SpecialCells(xlCellTypeVisible).Delete End If .Rows(1).Hidden = False .AutoFilterMode = False Application.DisplayAlerts = True End With End Sub

oder man prüft mit ZählenWenn (Worksheetfunction.countIf) ob der Suchbegriff überhaupt in der Liste vorkommt und braucht dann u.U. auch gar nicht erst filtern.
ich bevorzuge zum Löschen von Zeilen die Methode, dass ich per formel die zu löschenden Zeilen mit 0 kennzeichne und die die stehen bleiben sollen, mit der Zeilennummer um dann mit dem Daten - Datentools - Duplikate - Entfernen die Zeilen mit 0 zu löschen.
das ist sehr schnell und bietet auch mehr Möglichkeiten als der Autofilter, weil beispielswiese ODER-Verknüpfungen über mehrere Spalten gebildet werden können oder Daten aus darüber oder darunter liegendnen Zeilen verwendet werden können:

with AcitveSheet.UsedRange
with .columns(.columns.count + 1)
.FormulaR1C1 = "=IF(OR(RC2=139302,RC2=139328),0,Row())"
.Cells(1, 1).value = 0
.entireRow.RemoveDuplicates .Column, xlno
.ClearContents
end with
end with

diesen Code kann man eingentlich immer für die Aufgabe "Löschen von Zeilen mit Bedingung" verwenden.
Angepasst werden muss lediglich die kennzeichnungsformel.
Den Formeltext für den Code kann man auch so ermitteln, in dem man die Formel von Hand in die Zelle schreibt und mit dem Recorder aufzeichnet.
das ist bisher die beste Mehtode, um Zeilen aus einem Zellbereich zu entfernen denn:
- es ist sehr schnell
- es funktioniert mit größten Datenmengen
- es ist einfach
- man kann die Methode auch ohne VBA von Hand einsetzen
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Gefundene Datensätze variabel markieren

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread