VBA Na Rows().Delete wordt de lege cel nog steeds meegeteld

[Diniz]

Ik tel het aantal ingevulde rijen in een werkblad op deze manier:

dbl_AantalCellen = Sheets("Omschrijving").Cells.SpecialCells(xlCellTypeLastCell).Row

Als ik een complete rij verwijder en daarna weer opnieuw tel met het vorige stukje code dan wordt de verwijderde rij toch meegeteld en houd ik een lege cel. Hoe voorkom ik dit?

Zo verwijder ik een rij:

Sheets("Omschrijving").Rows(dbl_AantalCellen).Delete

 

[Roncancio]

Doordat de betreffende cel ingevuld is geweest, onthoudt VBA deze cel als de laatste cel. Hetzelfde gebeurt met CTRL-END.
Je kunt dit oplossen door het bestand op te slaan.
Hierna zal dbl_AantalCellen wel het juiste aantal weergeven.

Met vriendelijke groet,


Roncancio

 

[Diniz]

Top, nu werkt het, bedankt!