Vba: so zählen sie die anzahl der zeilen im bereich

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

 SubCountRows ()
    Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

In diesem speziellen Beispiel wird die Anzahl der Zeilen in Spalte A gezählt und das Ergebnis dann der Zelle E2 zugewiesen.

Wenn Sie stattdessen die Anzahl der Zeilen in einem Meldungsfeld anzeigen möchten, können Sie die folgende Syntax verwenden:

 SubCountRows ()
    'Create variable to store number of rows
    Dim row_count As Integer
    
    'Calculate number of rows in range
    row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
    
    'Display the result
    MsgBox " Rows in Column A: " & row_count
End Sub

Die folgenden Beispiele zeigen, wie jede dieser Methoden in der Praxis mit dem folgenden Datensatz in Excel verwendet wird, der die Namen von Basketballspielern aus drei verschiedenen Teams enthält:

Beispiel 1: Zeilen im Bereich mit VBA zählen und Ergebnisse in der Zelle anzeigen

Angenommen, wir möchten die Anzahl der Zeilen in Spalte A berechnen und die Ergebnisse in einer bestimmten Zelle anzeigen.

Dazu können wir das folgende Makro erstellen:

 SubCountRows ()
    Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

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

Beachten Sie, dass Zelle E2 den Wert 9 enthält.

Dies sagt uns, dass es in Spalte A 9 Zeilen mit Werten gibt.

Beispiel 2: Zeilen im Bereich mit VBA zählen und Ergebnisse im Meldungsfeld anzeigen

Angenommen, wir möchten stattdessen die Anzahl der Zeilen in Spalte A zählen und die Ergebnisse in einem Meldungsfeld anzeigen.

Dazu können wir das folgende Makro erstellen:

 SubCountRows ()
    'Create variable to store number of rows
Dim row_count As Integer
    
    'Calculate number of rows in range
    row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
    
    'Display the result
    MsgBox " Rows in Column A: " & row_count
End Sub

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

Das Meldungsfeld teilt uns mit, dass es in Spalte A 9 Zeilen mit Werten gibt.

Beachten Sie, dass wir in diesem Beispiel die Anzahl der Zeilen in der gesamten Spalte A berechnet haben, indem wir A:A als Bereich verwendet haben.

Wenn Sie jedoch stattdessen die Anzahl der Zeilen mit Werten in einem bestimmten Bereich berechnen möchten, können Sie A2:A9 (oder einen anderen Bereich, der Sie interessiert) eingeben.

Zusätzliche Ressourcen

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

VBA: So schreiben Sie die Funktionen AVERAGEIF und AVERAGEIFS
VBA: So schreiben Sie SUMIF- und SUMIFS-Funktionen
VBA: So schreiben Sie COUNTIF- und COUNTIFS-Funktionen