AW: Wert löschen, wenn Bedingung vorliegt
04.03.2022 10:45:18
Daniel
hier nochmal zwei Varianten, die Aufgabe zu lösen.
die erste markiert die zu leerenden Zellen per Formel in einer Hilfsspalte, die zweite nutzt den Autofilter.
Sub Mit_Formel()
With Cells(1, 1).CurrentRegion
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = "=IF(AND(RC1=4,RC2=7),1,"""")"
If WorksheetFunction.Sum(.Cells) > 0 Then _
Intersect(Columns(2), .SpecialCells(xlCellTypeFormulas, 1).EntireRow).ClearContents
.ClearContents
End With
End With
End Sub
Sub Mit_Autofilter()
With Cells(1, 1).CurrentRegion
.AutoFilter field:=1, Criteria1:=4
.AutoFilter field:=2, Criteria1:="07"
.Offset(1, 0).Columns(2).ClearContents
.AutoFilter
End With
End Sub
Gruß Daniel