[VBA]Lengte van een onderbroken kolom bepalen in excel

[DarkShadow]

Hallo, ik wil graag de lengte van mn logboek in excel bepalen, en daarna op datum doorzoeken.

met behulp van
for i = 0 to aantalrijen
if zoekdatum = datuminbestand then
loopje met iets kopieren
endif
next i

Dit bovenstaande werkt al gewoon, maar alleen als ik zelf aantalrijen in vul, het bepalen daarvan lukt nog niet, ik heb het volgende geprobeerd:

Visual Basic:

logboek.Worksheets("logboek").Select
logboek.Worksheets("logboek").Range("A:A").Select
Selection.CurrentRegion.Select
intAantalRijen = Selection.Rows.Count

Zou in principe moeten werken, ware het niet dat er lege cellen in de range a:a zitten omdat het bestand gewoon handmatig wordt aangemaakt (wel volgens enkele afspraken).

Daarom zou dit ook niet werken:

Visual Basic:

    Do While logboek.Worksheets("logboek").Cells(( 3 + r), 3) <> ""
    r = r + 1
    intaantalrijen = intaantalrijen + 1
    Loop

Ik ben benieuwt of jullie hiervoor wel werkende truken kennen, want ik kan ze niet vinden

[onkl]

ActiveSheet.UsedRange geeft de kleinst mogelijke range met alle gebruikte cellen.
Misschien kan je iets met ActiveSheet.UsedRange.Rows.Count?

offtopic:
He, jij weer!

[ Voor 13% gewijzigd door onkl op 22-09-2005 11:49 ]

[DarkShadow]

hehe ik weer, ik spam heel GoT onder daar kunnen we wel wat aan doen als je dat graag wilt

offtopic:
het werkt, bedankt!

[ Voor 28% gewijzigd door Lustucru op 22-09-2005 12:17 ]

[DarkShadow]

dude, geintje, mn OP was gewoon serieus bedoeld

Ik zal even voor de goede orde de uiteindelijke code posten voor als men het ooit nog nodig heeft

Visual Basic:

'Hoelang is mijn bestand?
logboek.Worksheets("logboek").Select
intAantalRijen = ActiveSheet.UsedRange.Rows.Count

Het is niet veel, maar het heeft me weer een eind op weg geholpen.

[ Voor 76% gewijzigd door DarkShadow op 22-09-2005 13:43 ]