AW: Filtern nach zwei Spalten - ODER-Verknüpfung
29.03.2016 12:03:09
Daniel
Hi Karin
ab Excel 2007 löst man das Problem "Zeilen löschen mit Bedingung" am besten über die Funktion Daten - Datentools - Duplikate entfernen
das geht dann konkret so:
1. denke dir eine Formel aus, welche alle Zeilen die gelöscht werden sollen mit 0 kennzeichnet und die die stehen bleiben sollen mit der Zeilennummer.
in deinem Fall könnte das die Formel sein:
=Wenn(IstZahl(Finden("Tier",C2&E2));Zeile();0)
schreibe diese Formel in einer Hifsspalte am Tabellenende von der 2. Zeile bis zur letzen befüllten
2. schriebe in die Zeile 1 der Hilfsspalte (Überschrift) ebenfalls die 0
3. wende auf die ganze Tabelle das Duplikate-Entfernen an, mit der Hilfsspalte als Kriterium und der Option "keine Überschrift" (keine Angst, die Überschriftenzeile wird trotzdem nicht gelöscht)
das ganze geht natürlich auch als Makro:
Sub ZeilenLöschen()
With ActiveSheet.UsedRange
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = "=IF(ISNUMBER(FIND(""Tier"",RC3&RC5)),ROW(),0)"
.Cells(1, 1).Value = 0
.EntireRow.RemoveDuplicates .Column, xlNo
.ClearContents
End With
End With
End Sub
das Prinzip ist sozusagen eine Standardmethode zum Löschen von Zeilen mit Bedinung.
Wenn sich die Bedinung ändern sollten, brauchst du nur die Formel zu ändern, den Rest des Codes kannst du immer verwenden.
Gruß Daniel