Wenn Sie eine kleine Datentabelle mit ein paar Spalten haben, können Sie sie leicht alle zählen. Aber bei einer großen Datentabelle ist es ziemlich schwierig, alle Spalten fehlerfrei zu zählen. Außerdem können einige Spalten Daten enthalten, während andere Spalten völlig leer sein können. Daher ist das Zählen aller Spalten mit Daten im Falle einer großen Datentabelle ziemlich schwierig. In diesem Artikel lernen Sie 2 Möglichkeiten zum ZählenSpalten mit Daten mit Hilfe von VBA in Excel mit Leichtigkeit.

Download Arbeitsbuch Praxis

Sie können die Excel-Datei unter folgendem Link herunterladen und mit ihr üben.

Spalten mit Daten zählen.xlsm

2 Möglichkeiten zum Zählen von Spalten mit Daten mithilfe von VBA in Excel

1. alle Spalten in einem Arbeitsblatt mit Daten mithilfe eines einfachen VBA-Codes zählen

In der folgenden Datentabelle sehen wir die 3 Spalten. Jetzt werden wir einen VBA-Code verwenden, um die Anzahl der verwendeten Spalten in einem einzelnen Excel-Arbeitsblatt zu ermitteln.

❶ Drücken Sie zunächst ALT + F11 um den VBA-Editor zu öffnen.

❷ Erstellen Sie danach ein neues Modul aus Einfügen> Modul.

❸ Kopieren Sie anschließend das folgende VBA-Skript.

 Public Sub CountUsedColumns() With Sheet1.UsedRange MsgBox "Die Anzahl der Spalten mit Daten ist: " & .Columns.Count End With End Sub 

❹ Gehen Sie dann zurück zum VBA-Editor und drücken Sie STRG + V um sie einzufügen.

❺ Speichern Sie nun den VBA-Code durch Drücken von STRG + S Taste.

❻ Um den VBA-Code auszuführen, gehen Sie zum Entwickler und klicken Sie auf Makros Oder Sie drücken einfach die Taste F5 Schlüssel.

Die Makro erscheint ein Dialogfeld.

❼ Alles was Sie tun müssen, ist, auf die Schaltfläche ausführen. Taste.

Sie werden sehen, dass ein Dialogfeld erscheint, das besagt, dass die Anzahl der Spalten mit Daten 3 beträgt.

Lesen Sie mehr: Wie man die Anzahl der Spalten in Excel zählt (3 einfache Methoden)

2. alle Spalten in einem bestimmten Bereich mit Daten mithilfe eines Excel-VBA-Codes zählen

Mit dem folgenden VBA-Code können Sie alle Spalten mit Daten in einem bestimmten Bereich zählen.

Um den Code zu verwenden,

❶ Öffnen Sie zunächst den VBA-Editor durch Drücken von ALT + F11.

❷ Dann gehen Sie zu Einfügen> Modul um ein neues Modul zu erstellen.

❸ Kopieren Sie anschließend das folgende VBA-Skript.

 Sub CountColumnsInARange() Dim xRng As Worksheet Set xRng = Worksheets("Sheet1") MsgBox "Total column: " & xRng.Range("B5:D5").Columns.Count End Sub 

❹ Gehen Sie zurück zum VBA-Editor und drücken Sie STRG + V um sie einzufügen.

❺ Speichern Sie nun den Code durch Drücken von STRG + S.

❻ Gehen Sie zum Entwickler und drücken Sie die Taste Makros zum Öffnen des Makro Fenster.

Oder drücken Sie einfach die F5 Taste zur Nutzung der Makro Dialogfeld.

❼ Wählen Sie im Dialogfenster den Funktionsnamen CountColumnsInARange und drücken Sie die ausführen. Taste.

Schließlich erscheint ein kleines Dialogfeld, in dem die Gesamtzahl der Spalten mit 3 angegeben wird.

Lesen Sie mehr: Wie man Spalten für VLOOKUP in Excel zählt (2 Methoden)

Weitere VBA-Codes zum Zählen von Spalten in Excel

1. die VBA-Methode Range.End verwenden, um die zuletzt verwendete Spaltennummer zurückzugeben

So erhalten Sie die zuletzt verwendete Spaltennummer in einer Excel-Tabelle,

❶ Öffnen Sie zunächst den VBA-Editor durch Drücken von ALT + F11.

❷ Dann gehen Sie zu Einfügen> Modul um ein neues Modul zu erstellen.

❸ Kopieren Sie das Folgende VBA Code:

 Option Explicit Sub LastColumn() Dim xRng As Integer xRng = Range("B4").End(xlToRight).Column MsgBox xRng End Sub 

❹ Fügen Sie den Code in den VBA-Editor ein und speichern Sie ihn.

❺ Drücken Sie die F5 Taste, um den obigen Code auszuführen.

Sie erhalten die letzte Spaltennummer in einem Pop-up-Dialogfeld wie in der folgenden Abbildung:

Lesen Sie mehr: Zählen von Spalten bis zum erreichten Wert in Excel

2. die Methode Range.Find verwenden, um die zuletzt verwendete Spaltennummer in Excel zurückzugeben

Wenn Sie nach VBA-Codes suchen, um die zuletzt verwendete Spaltennummer zurückzugeben, führen Sie die folgenden Schritte aus:

❶ Drücken Sie zunächst ALT + F11 um den VBA-Editor zu öffnen.

❷ Erstellen Sie danach ein neues Modul aus Einfügen> Modul.

❸ Kopieren Sie den folgenden VBA-Code:

 Sub LastUsedColumnNo() Dim xRng As Long xRng = Cells.Find(What:="*", _ After:=Range("B4"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column MsgBox "Last Used Column Numeber: " & xRng End Sub 

❹ Gehen Sie dann zurück zum VBA-Editor und drücken Sie STRG + V um sie einzufügen.

❺ Speichern Sie nun den VBA-Code durch Drücken von STRG + S Taste.

Drücken Sie nun die F5 Taste, um den obigen Code auszuführen.

Sie erhalten die zuletzt verwendete Spaltennummer in einem Pop-up-Dialogfeld, wie in der folgenden Abbildung dargestellt:

Dinge zum Merken

• Presse ALT + F11 um den VBA-Editor zu öffnen.
• Sie können drücken ALT + F8 zur Inanspruchnahme der Makros Dialogfeld.
• Um den VBA-Code auszuführen, drücken Sie die F5.

Schlussfolgerung

Zusammenfassend haben wir 2 Möglichkeiten erörtert, Spalten mit Daten mithilfe von VBA in Excel zu zählen. Wir empfehlen Ihnen, die diesem Artikel beigefügte Übungsmappe herunterzuladen und alle Methoden damit zu üben. Und zögern Sie nicht, Fragen im Kommentarbereich unten zu stellen. Wir werden versuchen, alle relevanten Fragen so schnell wie möglich zu beantworten. Und besuchen Sie bitte unsere Website ExcelWIKI um mehr zu erfahren.