So verwenden sie die counta-funktion in vba (mit beispielen)

Sie können die CountA- Methode in VBA verwenden, um die Anzahl der nicht leeren Zellen in einem bestimmten Bereich zu zählen.

Hier ist eine gängige Methode, diese Methode in der Praxis anzuwenden:

 SubCountARange ()
    Range(" C1 ") = WorksheetFunction.CountA(Range(" A1:A10 "))
End Sub

In diesem speziellen Beispiel wird die Anzahl der nicht leeren Zellen im Bereich A1:A10 gezählt und das Ergebnis in Zelle C1 angezeigt.

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

 SubCountARange ()
    'Create variable to hold results of CountA
    Dim counta As Single
    
    'Calculate number of non-empty cells in range
    counta = WorksheetFunction.CountA(Range(" A1:A10 "))
    
    'Display the result
    MsgBox " Number of Non-Empty Cells in Range: " & counta 
End Sub

Die folgenden Beispiele zeigen, wie Sie jede dieser Methoden in der Praxis mit der folgenden Wertespalte in Excel anwenden können:

Beispiel 1: Zählen Sie nicht leere Zellen im Bereich und zeigen Sie die Ergebnisse in der Zelle an

Angenommen, wir möchten die Anzahl der nicht leeren Zellen im Bereich A1:A10 berechnen und die Ergebnisse in einer bestimmten Zelle anzeigen.

Dazu können wir das folgende Makro erstellen:

 SubCountARange ()
    Range(" C1 ") = WorksheetFunction.CountA(Range(" A1:A10 "))
End Sub

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

Beachten Sie, dass Zelle C1 den Wert 7 enthält.

Dies sagt uns, dass es im Bereich A1:A10 7 nicht leere Zellen gibt.

Beispiel 2: Zählen Sie nicht leere Zellen im Bereich und zeigen Sie die Ergebnisse im Meldungsfeld an

Angenommen, wir möchten stattdessen die Anzahl der nicht leeren Zellen im Bereich A1:A10 zählen und die Ergebnisse in einem Meldungsfeld anzeigen.

Dazu können wir das folgende Makro erstellen:

 SubCountARange ()
    'Create variable to hold results of CountA
    Dim counta As Single
    
    'Calculate number of non-empty cells in range
    counta = WorksheetFunction.CountA(Range(" A1:A10 "))
    
    'Display the result
    MsgBox " Number of Non-Empty Cells in Range: " & counta 
End Sub

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

Das Meldungsfeld teilt uns mit, dass es im Bereich A1:A10 7 nicht leere Zellen gibt.

Beachten Sie, dass Sie stattdessen A:A eingeben können, wenn Sie stattdessen die Anzahl der nicht leeren Zellen in einer gesamten Spalte zählen möchten.

Dadurch wird die Anzahl der nicht leeren Zellen in der gesamten Spalte A berechnet.

Hinweis : Die vollständige Dokumentation für die VBA- CountA- Methode finden Sie hier .

Zusätzliche Ressourcen

Die folgenden Tutorials erklären, 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