ich habe eine Tabelle von A:L. In Spalte C sind Abkürzungen. Ich möchte nun mittels eines Makros alle Zeilen komplett löschen wo in Spalte C nicht *ABS*, *DOW* oder *STC* vorkommen.
Wie würde ein Code dazu aussehen?
Hruß
Michael
Sub test()
With ActiveSheet.UsedRange
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = "=If(IsNumber(Find(""ABS"",RC3))+ISNumber(Find(""DOW"",RC3))+IsNumber( _
Find(""STC"",RC3))=0,0,Row())"
.Cells(1, 1).Value = 0
.EntireRow.RemoveDuplicates .Column, xlNo
.ClearContents
End With
End With
End Sub
der Code kennzeichnet per Formel alle Zeilen, die gelöscht werden sollen mit 0 und die die stehenbleiben müssen mit der Zeilennummer.