Guten Tag
Wie kann ich vermeiden beim untenstehende Code ein RC22 (hätte lieber ein Range oder Cells) einzugeben. Ich möchte, dass alle Zeilen mit Eintrag O oder P in Spalte B gelöscht werden.
Besten Dank im voraus.
Martin
'O und P löschen
With xxx.UsedRange
With .Columns(.Columns.Count).Offset(0, 1)
.FormulaR1C1 = "=IF(AND((ISERROR(SEARCH(""O"",RC22,1))),(ISERROR(SEARCH(""P"",RC22,1)))),ROW(),"""")"
.Formula = .Value
.Cells(1).Value = "1"
.EntireRow.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
.Clear
End With
End With