Zähler einbauen bei Zeile löschen

Question

Hallo,

mit folgendem Code lösche ich alle Zeilen, welche in Spalte B keinen Inhalt haben.
Läuft soweit auch wie gewollt, aber was muss ich ergänzen, um am Ende die Zahl der gelöschten Zeilen ausgeben zu können?

Range("B2:B10000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Kann mir hier jemand behilflich sein?

bg E.

Answer 1

Hi,

mit diesem Befehl erhältst du die Anzahl an Zellen ohne Inhalt:

Range("B2:B10000").SpecialCells(xlCellTypeBlanks).Count

Musst du natürlich vor dem Löschen ermitteln und auf eine Variable schreiben, damit du sie am Schluss dann abfragen kannst.

Bis später, Karin