Wie zählt man Dateien in einem bestimmten Ordner oder Verzeichnis in Excel?

Der folgende VBA-Code ermöglicht es Ihnen, ganz einfach alle Dateien eines bestimmten Typs – beispielsweise alle .xlsx-Dateien – in einem ausgewählten Ordner zu zählen. Gehen Sie dazu wie folgt vor:

1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster „Microsoft Visual Basic für Applikationen“ zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie anschließend den unten stehenden VBA-Code in das geöffnete Modulfenster ein.

VBA: Eine bestimmte Datei in einem bestimmten Ordner zählen

Sub CountFiles()
Dim xFolder As String
Dim xPath As String
Dim xCount As Long
Dim xFiDialog As FileDialog
Dim xFile As String
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xFolder = xFiDialog.SelectedItems(1)
End If
If xFolder = "" Then Exit Sub
xPath = xFolder & "\*.xlsx"
xFile = Dir(xPath)
Do While xFile <> ""
xCount = xCount + 1
xFile = Dir()
Loop
MsgBox xCount & " files found"
End Sub

Hinweis: Der obige VBA-Code zählt die .xlsx-Dateien in einem bestimmten Ordner. Um andere Dateitypen zu zählen, suchen Sie die Zeile xPath = xFolder & „\*.xlsx" und ändern Sie die Endung .xlsx entsprechend Ihren Anforderungen in eine andere Dateierweiterung.

3. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um diesen VBA-Code auszuführen.

4. Wählen Sie im geöffneten Dialogfeld „Durchsuchen“ den Ordner aus, in dem Sie die Dateien des gewünschten Typs zählen möchten, und klicken Sie auf die Schaltfläche OK.

5. Es erscheint nun ein Dialogfeld, das Ihnen anzeigt, wie viele Dateien des jeweiligen Typs im ausgewählten Ordner vorhanden sind. Schließen Sie das Dialogfeld einfach.

Wenn Sie einen Ordner geöffnet haben, wird normalerweise die Gesamtanzahl aller Dateien am unteren Rand angezeigt. Diese Methode stellt das Kutools für Excel-Hilfsprogramm Den Ordner öffnen, in dem sich das aktuelle Dokument befindet vor, mit dem Sie den Ordner der aktuellen Arbeitsmappe öffnen und anschließend die Anzahl der darin enthaltenen Dateien ermitteln können.

1. Klicken Sie auf KUTOOLS PLUS > Arbeitsmappe > Den Ordner öffnen, in dem sich das aktuelle Dokument befindet. Siehe Screenshot:

2. Der Ordner, der die aktuelle Arbeitsmappe enthält, wird nun geöffnet.

Wählen Sie keine Datei im Ordner öffnen aus, und Sie sehen die Gesamtanzahl aller Dateien am unteren Rand dieses Ordners, wie im folgenden Screenshot dargestellt:

Hinweis: Das Hilfsprogramm Den Ordner öffnen, in dem sich das aktuelle Dokument befindet funktioniert nicht, wenn Sie die aktuelle Arbeitsmappe noch nie gespeichert haben.

Manchmal möchten Sie mehrere Dateitypen in einem Ordner und dessen Unterordnern zählen. Tatsächlich bietet Kutools für Excel ein weiteres Hilfsprogramm – Dateinamenliste –, um dies problemlos zu erledigen.

1. Klicken Sie auf KUTOOLS PLUS > Import/Export > Dateinamenliste, um das Dialogfeld „Dateinamenliste“ zu öffnen.

2. Führen Sie im geöffneten Dialogfeld Dateinamenliste Folgendes aus:

3. Klicken Sie im Dialogfeld „Dateinamenliste“ auf die Schaltfläche OK.

4. Nun werden alle Dateien des angegebenen Typs in einem neuen Arbeitsblatt aufgelistet. Markieren Sie einfach die erste Spalte ohne Spaltenüberschrift, und die Anzahl der Dateien wird Ihnen wie im folgenden Screenshot gezeigt in der Statusleiste angezeigt: