Dim van een array

[rhvanloenen]

Als ik
dim array_teller(Int(Selection.SpecialCells(xlCellTypeLastCell).Row)) krijg ik een foutmelding terwijl (Int(Selection.SpecialCells(xlCellTypeLastCell).Row)) wel een correcte waarde weergeeft in msgbox.

maar als ik doe
sim array_teller(500) gaat dat goed.

Waarom kan ik in dim van een array geen lastrow opnemen. Omdat die zou kunnen veranderen tijden het vullen van een werkblad?
Maar dan moet ij de dim array_teller doen met een vooraf bepaald absoluut getal. Klopt dat? Ik moet dan hele ruime marges inbouwen als ik niet weet wat de input in het werkplad gaat worden woorop de macro werkt.
Ronald

 

[HSV]

Maak gebruik van 'redim' en/of 'redim preserve' als je niet op voorhand weet hoe groot de array wordt.

ps. Zo heb je ook een array.

sn = cells(1).currentregion

ubound(sn) is het aantal rijen.
ubound(sn,2) is het aantal kolommen.