Gebruikte rijen tellen

[John van Opstal]

Hoi,

Ik wil graag in VBA het aantal gebruikte rijen tellen.
Omdat ik For...Next als teller wil gebruiken.
Wie wil me even verder helpen.

Groetjes John.

 

[Spiderman]

Hoi John van Opstal,

Dim LastRow as Long ' Edit Wigi heeft gelijk 32768 verder gaat een integer niet dus vandaar een Long
LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row

Suc6

 

[Wigi]

Hoi,

Ik wil graag in VBA het aantal gebruikte rijen tellen.
Omdat ik For...Next als teller wil gebruiken.
Wie wil me even verder helpen.

Groetjes John.

Stel dat je dat voor kolom A wil doen, gebruik dan:

Range("A" & Rows.Count).End(xlUp).Row

Pas aan als het voor een andere kolom is.

Wigi

 

[Wigi]

Arno: P.S. Ik ben momenteel werkeloos, dus als je nog een vacature voor me hebt

Zet er anders eens bij wat voor soort werk je wil / kan doen. Anders ga je niet veel respons krijgen vrees ik.

 

[Hof1607]

Re regels tellen

hoi wat dacht je van onderstaande krijg je ook nog een msg box


Sub aantalRegels()
Dim Teller As Integer
Teller = 0
Range("A1").Select
Do Until ActiveCell.Value = ""
Teller = Teller + 1
ActiveCell.Offset(1, 0).Select
Rows(Teller & ":" & Teller).Select
Loop
MsgBox Teller
End Sub

 

[Wigi]

hoi wat dacht je van onderstaande krijg je ook nog een msg box

Dit is heel inefficiënt! Dit is echt niet persoonlijk, maar ... gebruik dit nooit! Tenzij je veel tijd hebt.

Redenen:

- Vermijd het gebruik van loops
- gebruik nooit Select, tenzij het niet anders kan
- Dim Teller As Integer zal hangen als er veel rijen zijn. (meer dan 32768) Daarom Dim Teller As Long

Wigi

 

[Hof1607]

Re op bericht WIGI

Oke WIGI ook weer wat geleerd bedankt

Wim

 

[Wigi]

Oke WIGI ook weer wat geleerd bedankt

Wim

Ik heb ook ergens moeten beginnen. En in het begin heb ik zoiets ook wel geschreven. Maar dan is het goed dat er iemand zegt hoe het beter kan. Blij dat je er weer iets van opgestoken hebt.

Wigi

 

[John van Opstal]

Hoi Wigi en Arno,

Bedankt voor de oplossing(en).
Ik ga er morgen gelijk mee aan de slag.

En succes met solliciteren Arno, ik hoop dat je iets leuks tegenkomt.

Groetjes John.