156 Aufrufe
Gefragt in Tabellenkalkulation von

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.

1 Antwort

0 Punkte
Beantwortet von beverly_ Experte (3.3k Punkte)

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

...