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.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