Sub DateiAnzahl()
Dim Verzeichnis As String
Dim Dateimaske As String
Dim Anzahl As Integer
Verzeichnis = "D:\DATA\TRANSFER\"
Dateimaske = "*.*"
Anzahl = NumberofFilesInDirectory(Verzeichnis, Dateimaske)
End Sub
Um die Anzahl der Dateien in einem bestimmten Ordner mit VBA zu zählen, kannst du folgendes Vorgehen anwenden:
Öffne deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
Kopiere den folgenden VBA-Code in das Modul:
Sub DateiAnzahl()
Dim Verzeichnis As String
Dim Dateimaske As String
Dim Anzahl As Integer
Verzeichnis = "D:\DATA\TRANSFER\" ' Passe den Pfad an deinen Ordner an
Dateimaske = "*.*" ' Hier kannst du die Dateiendung anpassen, z.B. "*.xlsx"
Anzahl = NumberofFilesInDirectory(Verzeichnis, Dateimaske)
MsgBox "Anzahl der Dateien: " & Anzahl
End Sub
Function NumberofFilesInDirectory(ByVal Verzeichnis As String, ByVal Dateimaske As String) As Integer
Dim FSO As Object
Dim Ordner As Object
Dim Datei As Object
Dim Zähler As Integer
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Ordner = FSO.GetFolder(Verzeichnis)
Zähler = 0
For Each Datei In Ordner.Files
If Datei.Name Like Dateimaske Then
Zähler = Zähler + 1
End If
Next Datei
NumberofFilesInDirectory = Zähler
End FunctionÄndere den Verzeichnis-Pfad entsprechend, um auf den gewünschten Ordner zuzugreifen.
Schließe den VBA-Editor und führe das Makro aus, um die Anzahl der Dateien im Ordner zu ermitteln.
Fehler: "Pfad nicht gefunden"
Stelle sicher, dass der angegebene Pfad korrekt ist und die Schreibweise stimmt. Überprüfe auch, ob der Ordner existiert.
Fehler: Makro läuft nicht
Überprüfe, ob in Excel die Ausführung von Makros aktiviert ist. Gehe zu Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter und aktiviere die Makros.
Falls du kein VBA verwenden möchtest, kannst du auch eine Formel in Excel nutzen, um die Anzahl der Dateien zu zählen, allerdings ist diese Methode nicht so flexibel wie VBA. Eine Möglichkeit ist die Verwendung der Funktion ZÄHLENWENN, um bestimmte Kriterien zu überprüfen.
Angenommen, du möchtest nur die .xlsx-Dateien in einem Ordner zählen. Ändere den Dateimaske-Parameter in deinem VBA-Code wie folgt:
Dateimaske = "*.xlsx"Dies zählt nur die Excel-Dateien im angegebenen Ordner.
1. Kann ich die Anzahl der Dateien in Unterordnern zählen?
Ja, du kannst den Code anpassen, um auch Unterordner zu durchsuchen. Dafür musst du eine rekursive Funktion implementieren.
2. Funktioniert dieser Code in Excel 2016?
Ja, dieser VBA-Code funktioniert in Excel 2016 und auch in neueren Versionen von Excel. Achte darauf, die Makros zu aktivieren.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen