Excel VBA refreshen werkblad

[Diniz]

Dmv van een macro tel ik het aantal facturen met de volgende code:

dbl_AantalFacturenAanwezig = Sheets("fac_his_sys").Cells.SpecialCells(xlCellTypeLastCell).Row

Als ik daarna een factuur verwijder met:

Sheets("fac_his_sys").Rows(i).EntireRow.Delete

En opnieuw met

dbl_AantalFacturenAanwezig = Sheets("fac_his_sys").Cells.SpecialCells(xlCellTypeLastCell).Row

het aantal facturen tel geeft hij nog steeds het oude aantal aan. Pas als ik bijvoorbeeld op opslaan klik of opnieuw de werkmap opstart geeft hij het juiste aantal aan. Blijkbaar "zwerven" de oude gegevens nog ergens. Is er ook iets waarmee ik dit kan voorkomen? Dat na het verwijderen het werkblad gerefreshed wordt of iets dergelijks?

 

[jolivanes]

Is het niet makkelijker om een formule in b.v. A1 te zetten.

=COUNTA(A2:A65536)

Of misschien

dbl_AantalFacturenAanwezig = vbNullstring

aan het einde van de macro