So zählen sie zeilen in einer tabelle mit vba (mit beispiel)

Sie können die folgende Syntax verwenden, um die Anzahl der Zeilen in einer Tabelle in Excel mithilfe von VBA zu zählen:

 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

In diesem speziellen Beispiel wird die folgende Anzahl von Zeilen für die Tabelle auf dem aktiven Blatt namens Table1 gezählt:

• Gesamtzahl der Zeilen
• Gesamtzahl der Kopfzeilen
• Gesamtzahl der Körperlinien

Wir verwenden die MsgBox- Funktion, um ein Nachrichtenfeld zu erstellen, das jeden dieser Werte in einem einzigen Nachrichtenfeld anzeigt.

Hinweis : Wir verwenden die vbNewLine- Anweisung, um neue Zeilen einzufügen und ein Meldungsfeld mit mehreren Zeilen zu erstellen.

Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.

Beispiel: So zählen Sie Zeilen in einer Tabelle mit VBA

Angenommen, wir haben die folgende Tabelle namens Tabelle1 , die Informationen über verschiedene Basketballspieler enthält:

Wir können das folgende Makro erstellen, um die Anzahl der Zeilen in dieser Tabelle zu zählen:

 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

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Das Meldungsfeld teilt uns mit, dass die Tabelle insgesamt 10 Zeilen enthält.

Dies sagt uns auch, dass es 1 Kopfzeile und 9 Textzeilen gibt.

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

So zählen Sie mit VBA eindeutige Werte im Bereich
So zählen Sie die Anzahl der Zeilen in einem Bereich mithilfe von VBA
So zählen Sie Zellen mit bestimmtem Text mithilfe von VBA