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.Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen