Rijen in een tabel tellen met vba (met voorbeeld)

U kunt de volgende syntaxis gebruiken om het aantal rijen in een tabel in Excel te tellen met behulp van VBA:

 SubCountTableRow ()

Dim tbl As ListObject

'specify table to count rows in
Set tbl = ActiveSheet.ListObjects(" Table1 ")

'create message box that displays row count
MsgBox " Total Rows: " & tbl.Range.Rows.Count & vbNewLine & _
       " Header Rows: " & tbl.HeaderRowRange.Rows.Count & vbNewLine & _
       " Body Rows: " & tbl.ListRows.Count

'set tbl variable to Nothing
Set tbl = Nothing

End Sub

Dit specifieke voorbeeld telt het volgende aantal rijen voor de tabel op het actieve blad genaamd Tabel1 :

• Totaal aantal regels
• Totaal aantal kopregels
• Totaal aantal lichaamslijnen

We gebruiken de MsgBox- functie om een berichtenvenster te maken waarin elk van deze waarden in één berichtvenster wordt weergegeven.

Opmerking : we gebruiken de vbNewLine- instructie om nieuwe regels in te voegen en een berichtenvenster met meerdere regels te maken.

Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld: rijen in een tabel tellen met VBA

Stel dat we de volgende tabel hebben, genaamd Tabel1 , die informatie bevat over verschillende basketbalspelers:

We kunnen de volgende macro maken om het aantal rijen in deze tabel te tellen:

 SubCountTableRow ()

Dim tbl As ListObject

'specify table to count rows in
Set tbl = ActiveSheet.ListObjects(" Table1 ")

'create message box that displays row count
MsgBox " Total Rows: " & tbl.Range.Rows.Count & vbNewLine & _
       " Header Rows: " & tbl.HeaderRowRange.Rows.Count & vbNewLine & _
       " Body Rows: " & tbl.ListRows.Count

'set tbl variable to Nothing
Set tbl = Nothing

End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Het berichtvenster vertelt ons dat er in totaal 10 rijen in de tabel staan.

Dit vertelt ons ook dat er 1 koprij en 9 hoofdrijen zijn.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

Hoe u unieke waarden binnen bereik kunt tellen met VBA
Hoe u het aantal rijen in een bereik kunt tellen met VBA
Hoe cellen met specifieke tekst te tellen met VBA