Vba: so zählen sie die anzahl der verwendeten spalten

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

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

In diesem speziellen Beispiel wird die Anzahl der im Blatt namens „Sheet1“ verwendeten Spalten gezählt und das Ergebnis in Zelle A10 angezeigt.

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

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

Die folgenden Beispiele zeigen, wie jede dieser Methoden in der Praxis mit dem folgenden Datensatz in Excel verwendet wird, der Informationen über verschiedene Basketballspieler enthält:

Beispiel 1: Zählen Sie die in VBA verwendeten Spalten und zeigen Sie die Ergebnisse in der Zelle an

Angenommen, wir möchten die Anzahl der verwendeten Spalten zählen und die Ergebnisse in einer bestimmten Zelle anzeigen.

Dazu können wir das folgende Makro erstellen:

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

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

Beachten Sie, dass Zelle A10 den Wert 4 enthält.

Dies sagt uns, dass 4 Spalten verwendet werden.

Beispiel 2: Verwendete Spalten in VBA zählen und Ergebnisse im Meldungsfeld anzeigen

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

Dazu können wir das folgende Makro erstellen:

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

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

Das Meldungsfeld teilt uns mit, dass 4 Spalten verwendet werden.

Hinweis : Wenn leere Spalten gefolgt von Spalten mit Daten vorhanden sind, zählt VBA die leeren Spalten in der Berechnung als „verwendet“.

Zusätzliche Ressourcen

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

VBA: So zählen Sie die Anzahl der Blätter in einer Arbeitsmappe
VBA: So zählen Sie die Anzahl der Zeilen im Bereich
VBA: So zählen Sie Zellen mit bestimmtem Text