Wie listet man in Excel alle Ordner und Unterordner auf?
Bei der Arbeit mit Verzeichnis- oder Dateiverwaltungsaufgaben benötigen Sie manchmal schnell eine vollständige Liste aller Ordner und Unterordner eines bestimmten Verzeichnisses – direkt in Excel. Leider bietet Excel keine integrierte Funktion oder einen einfachen Assistenten, um automatisch alle Ordnernamen und Unterordnernamen aus einem vorgegebenen Dateipfad abzurufen. Dieser Artikel stellt Ihnen einen VBA-Code vor, mit dem Sie alle Ordner und Unterordner eines beliebigen Verzeichnisses direkt in Ihr Arbeitsblatt einfügen können. So minimieren Sie menschliche Fehler, sparen zeitaufwändige manuelle Arbeit und behalten Ihre Datenorganisation jederzeit im Blick.
Verwenden Sie VBA-Code, um alle Ordner und Unterordner aufzulisten
Verwenden Sie VBA-Code, um alle Ordner und Unterordner aufzulisten
Möchten Sie alle Ordnernamen und Unterordnernamen aus einem bestimmten Verzeichnis extrahieren und direkt in Excel anzeigen, ist VBA (Visual Basic for Applications) eine äußerst effektive Lösung. Dieser Ansatz bietet maximale Flexibilität und Kontrolle – Sie erhalten nicht nur die Ordnernamen, sondern auch wertvolle Zusatzinformationen wie den vollständigen Dateipfad, das Erstellungsdatum und den Zeitpunkt der letzten Änderung. Ideal geeignet ist diese Methode für Anwender, die mit den Entwicklerfunktionen von Excel vertraut sind und regelmäßig mit dynamischen oder sich häufig ändernden Dateisystemen arbeiten.
1. Drücken Sie ALT + F11, um den „Microsoft Visual Basic for Applications“-Editor zu öffnen. Mit diesem Tool können Sie Makros in Ihrer Arbeitsmappe hinzufügen und bearbeiten.
2. Klicken Sie im VBA-Editor auf Einfügen > Modul. Dadurch wird ein neues Modulfenster erstellt. Kopieren Sie den folgenden Code in das Modul:
VBA-Code: Alle Ordner und UnterOrdnername auflisten
Sub FolderNames()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim xPath As String
Dim xWs As Worksheet
Dim fso As Object, j As Long, folder1 As Object
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Choose the folder"
.Show
End With
On Error Resume Next
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Application.Workbooks.Add
Set xWs = Application.ActiveSheet
xWs.Cells(1, 1).Value = xPath
xWs.Cells(2, 1).Resize(1, 5).Value = Array("Path", "Dir", "Name", "Date Created", "Date Last Modified")
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder1 = fso.getFolder(xPath)
getSubFolder folder1
xWs.Cells(2, 1).Resize(1, 5).Interior.Color = 65535
xWs.Cells(2, 1).Resize(1, 5).EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Sub getSubFolder(ByRef prntfld As Object)
Dim SubFolder As Object
Dim subfld As Object
Dim xRow As Long
For Each SubFolder In prntfld.SubFolders
xRow = Range("A1").End(xlDown).Row + 1
Cells(xRow, 1).Resize(1, 5).Value = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder.DateLastModified)
Next SubFolder
For Each subfld In prntfld.SubFolders
getSubFolder subfld
Next subfld
End Sub
3. Nachdem Sie den Code eingefügt haben, drücken Sie F5 oder klicken Sie im VBA-Editor auf die Schaltfläche Ausführen, um das Makro zu starten. Anschließend öffnet sich das Dialogfeld Ordner auswählen, in dem Sie das Zielverzeichnis festlegen können, das nach Ordnern und Unterordnern durchsucht werden soll.
4. Wählen Sie das gewünschte Verzeichnis aus und klicken Sie auf OK. Das Makro verarbeitet das Verzeichnis und erstellt eine neue Arbeitsmappenliste mit allen Ordnern und Unterordnern – inklusive ihrer vollständigen Pfade, des unmittelbar übergeordneten Verzeichnisses, Namen, Erstellungsdaten sowie der letzten Änderungsdaten, wie unten dargestellt:
Einige praktische Tipps und Hinweise zur Verwendung dieses Codes:
- Wenn Ihre Verzeichnisstruktur sehr umfangreich ist, benötigt das Makro möglicherweise einige Zeit, um alle Ordner zu verarbeiten. Bitte haben Sie während der Ausführung Geduld und brechen Sie den Vorgang nicht ab.
- Die VBA-Methode setzt voraus, dass Ihre Makroeinstellungen aktiviert sind – andernfalls wird der Code nicht korrekt ausgeführt. Sollten Sicherheitswarnungen erscheinen, überprüfen Sie Ihre Einstellungen im Trust Center unter Excel-Optionen.
- Sollten Sie versehentlich den falschen Ordner ausgewählt haben, führen Sie das Makro einfach erneut aus und wählen das richtige Verzeichnis aus.
- Dieser Ansatz listet ausschließlich Ordner und Unterordner auf – wenn Sie auch Dateien anzeigen möchten, finden Sie weiter unten im zugehörigen Artikel zusätzliche Optionen.
- Wenn mehrere Benutzer die Arbeitsmappe gemeinsam nutzen, weisen Sie diese darauf hin, dass sie Makros auf ihren eigenen Computern aktivieren müssen, um die dynamische Auflistungsfunktion nutzen zu können.
- Sollte die generierte Arbeitsmappe leer oder unvollständig sein, vergewissern Sie sich, dass das ausgewählte Verzeichnis nicht leer ist und Sie über ausreichende Leseberechtigungen verfügen. Bei besonders tiefen oder komplexen Ordnerstrukturen prüfen Sie die Ressourcenlimits Ihres Systems und erwägen gegebenenfalls eine Verarbeitung in Batches oder Teilverzeichnissen.
Diese VBA-Lösung ist flexibel, benötigt keine zusätzlichen Add-Ins oder externe Software und erstellt automatisch eine Ausgabe-Arbeitsmappe für Ihren Komfort. Sie eignet sich jedoch ideal für Anwender, die mit grundlegenden Makrooperationen vertraut sind, und könnte bei speziellen Anpassungen weitere Modifikationen erfordern.
Zugehöriger Artikel:
Wie listet man Dateien aus einem Verzeichnis in ein Excel-Arbeitsblatt auf?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins