ich brauche wieder eure Hilfe.
Wie lösche ich die ganze Zeilen wenn in Spalte B und C keine Werte stehen.
Intersect(Columns(2).SpecialCells(xlcelltypeblanks).EntireRow, Columns(3).SpecialCells(xlcelltypeblanks).EntireRow).Delete
oder
With ActiveSheet.Usedrange
With .Columns(.Columns.Count + 1
.FormulaR1C1 = "=IF(CountA(RC2:RC3)=0,0,Row())"
.Cells(1, 1).Value = 0
.EntireRow.RemoveDuplicates .column, xlno
.ClearContents
end with
End with
der zweite Code sollte bei größeren Listen (mehrere tausens Zeilen) etwas schneller sein und lässt sich einfacher durch austausch der Formel an andere Löschbedigungen anpassen.