Filtern nach Werten und löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
da gibt's viele mögichkeiten das zu tun:
Variante 1)

Range("D:D").Copy
with Range("X:X")
.PasteSpecial xlpastevalues
.Replace "3*", True, xlwhole
.Replace "8*", true, xlwhole
.Replace "AB*", True, xlwhole
.Cells(1, 1).Value = True 'verhindert, dass die Zeile 1 mit den Überschriften gelöscht wird
.SpecialCells(xlcelltypeconstants, 3).EntireRow.delete
.ClearContents
end with

Variante 2:

with ActiveSheet.UsedRange
with .Columns(.columns.count + 1)
.FormulaR1C1 = "=IF(OR(Left(RC4,1)=""3"",Left(RC4,1)=""8"",Left(RC4,2)=""AB""),Row(),0)" _
.Cells(1, 1).Value = 0
.EntireRow.RemoveDuplicates .column, xlno
.ClearContents
End with
end with

wobei die zweite Methode meine bevorzugte Standardmethode zum löschen von Zeilen ist, weil sie sehr schnell ist, und mehr oder weniger für alle Aufgaben des Typs Löschen von Zeilen mit Bedingung verwendet werden kann, es muss lediglich die Formel angepasst werden.
Außerdem kann man diesen Weg auch sehr gut manuell, dh ohne Makro ausführen.
(Formel eintragen zum Kennzeichnen der zu löschenden Zellen (0 = löschen, Zeilennummer = bleibt stehen) und dann mit Duplikate Entferenen die Zeilen mit 0 eleminieren)
Gruß Daniel

Hi
machs von Hand, ohne Makro.
das zweite Makro funktioniert nach folgendem Prinzip:
1. schreibe in die erste freie Spalte am Tabellenende eine Formel, die alle Zeilen die gelöscht werden sollen mit 0 kennzeichnet und alle, die stehen bleiben müssen mit der aktuellen Zeilennummer (Zeile())
2. schreibe in die Überschriftenzeile der Hilfsspalte die 0
3. wende auf die ganze Tabelle die Funktion DATEN - DATENTOOLS - DUPLIKATE ENTFERENEN an, mit der Hilfsspalte als Kriterium und er Option "keine Überschrift"
4. lösche die Hilfsspalte wieder.
das einzige, was du anpassen musst wenn sich die Bedingungen zum löschen der Zeilen ändern, ist die Formel.
Diese kannst du dir aber auch unabhängig vom Makro ausdenken und ausprobieren, und dann über den Recorder herausfinden, wie die Formel über VBA geschrieben werden muss.
dann brauchst du nur den neuen Formeltext in mein Makro übernehmen.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Filtern nach Werten und löschen

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

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread