Wie listet man schnell alle Bild- oder Dateinamen aus einem Ordner in Excel auf?
Beim Arbeiten mit Sammlungen von Bildern oder Dateien ist es oft unerlässlich, in Excel einen Katalog oder eine Referenzliste für Aufgaben wie Inventurverwaltung, Berichterstellung oder einfaches Nachschlagen zu erstellen. Das manuelle Eingeben aller Bild- oder Dateinamen aus einem Ordner in ein Excel-Arbeitsblatt kann jedoch zeitaufwendig und fehleranfällig sein – besonders bei Ordnern mit vielen Dateien oder solchen, die regelmäßig aktualisiert werden. Zum Glück bietet Excel mehrere praktische Lösungen, sowohl integrierte als auch über Add-Ins oder Skripte, um diesen Prozess zu automatisieren und so Genauigkeit sowie Effizienz deutlich zu steigern.
In diesem Tutorial erfahren Sie, wie Sie mithilfe praktischer Methoden im Handumdrehen alle Bild- oder Dateinamen aus einem bestimmten Ordner direkt in ein Excel-Arbeitsblatt übertragen – genau wie im Screenshot rechts dargestellt. Ganz gleich, ob Sie mit Bildern, Dokumenten oder einer Mischung verschiedener Dateitypen arbeiten: Die vorgestellten Verfahren optimieren Ihren Arbeitsablauf und sparen Ihnen wertvolle Zeit. SCHNELLE NAVIGATION Bildnamen aus einem Ordner mithilfe von VBA in Excel auflisten |  |
Bildnamen aus einem Ordner mithilfe von VBA in Excel auflisten
Standardmäßig bietet Excel keine integrierte Funktion, um Datei- oder Bildnamen automatisch aus einem Computerordner in ein Arbeitsblatt zu importieren. Mit einem einfachen VBA-Makro können Sie jedoch alle Bilddateien – oder Dateien beliebiger anderer von Ihnen festgelegter Typen – direkt aus einem Ordner in Excel-Zellen auflisten. Diese Lösung eignet sich ideal für gelegentliche Nutzung, wenn Sie maximale Anpassbarkeit benötigen oder zusätzliche Add-Ins vermeiden möchten. Der Ansatz funktioniert zudem problemlos mit verschiedenen Dateierweiterungen jenseits von Bildern – passen Sie dazu einfach den Dateifilter im Code entsprechend an.
Die VBA-Methode ist leistungsstark, erfordert jedoch sorgfältige Handhabung: Jede fehlerhafte Codeanpassung kann zu Problemen führen. Stellen Sie stets sicher, dass Dateipfad und Erweiterungsfilter korrekt sind, bevor Sie das Skript ausführen. Beachten Sie außerdem, dass Änderungen am Ordnerinhalt nach dem Auflisten nicht automatisch in Excel übernommen werden – dazu müssen Sie den Code erneut ausführen. So wenden Sie die Methode an:
1. Drücken Sie in Excel Alt+F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im erscheinenden Fenster auf Einfügen > Modul, um ein neues Modul hinzuzufügen – hier fügen Sie den VBA-Code ein.
3. Kopieren Sie den folgenden Code und fügen Sie ihn in das Modulfenster ein:
Sub PictureNametoExcel()
'UpdatebyExtendoffice
Dim I As Long
Dim xRg As Range
Dim xAddress As String
Dim xFileName As String
Dim xFileDlg As FileDialog
Dim xFileDlgItem As Variant
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xRg = xRg(1)
xRg.Value = "Picture Name"
With xRg.Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
End With
xRg.EntireColumn.AutoFit
Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
I = 1
If xFileDlg.Show = -1 Then
xFileDlgItem = xFileDlg.SelectedItems.Item(1)
xFileName = Dir(xFileDlgItem & "\")
Do While xFileName <> ""
If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
I = I + 1
End If
xFileName = Dir
Loop
End If
Application.ScreenUpdating = True
End Sub4. Drücken Sie F5 oder klicken Sie in der VBA-Umgebung auf die Schaltfläche „Ausführen“, um das Skript zu starten. Anschließend erscheint ein Dialogfeld, das Sie auffordert, eine Zelle auszuwählen, in der die Liste der Bildnamen eingefügt werden soll.
5. Nachdem Sie die Zelle bestätigt haben, wählen Sie den Ordner mit den gewünschten Bildern oder Dateien aus – navigieren Sie einfach zum entsprechenden Verzeichnis und markieren Sie den gewünschten Ordner.
6. Klicken Sie auf OK. Alle Bilddateinamen (mit vollem Pfad), die den im Code angegebenen Erweiterungen (.jpg, .png, .img, .ico, .bmp) entsprechen, werden ab der gewählten Excel-Zelle sofort aufgelistet.
Hinweis: Sie können den VBA-Code anpassen, um andere Dateitypen aufzulisten, indem Sie die Erweiterungen in der Bedingung bearbeiten: If InStr(1, xFileName, „.jpg") + ... > 0 Then. Um beispielsweise ausschließlich Word-Dokumente aufzulisten, ändern Sie dies in If InStr(1, xFileName, „.docx") > 0 Then. Achten Sie darauf, den Punkt vor der Dateierweiterung anzugeben (z. B. „.pdf“ und nicht „pdf“). Um mehrere unterschiedliche Dateitypen aufzulisten, kombinieren Sie diese wie gezeigt mit Pluszeichen.
Wichtiger Hinweis: Diese VBA-Lösung listet ausschließlich Dateien auf der obersten Ebene des ausgewählten Ordners auf. Dateien in Unterordnern oder versteckten Ordnern werden nicht berücksichtigt – es sei denn, der Code wird entsprechend für die Rekursion angepasst.
Obwohl die VBA-Lösung eine hohe Anpassbarkeit und Flexibilität bietet, müssen Sie das Makro jedes Mal erneut ausführen, wenn Sie die Dateiliste aktualisieren möchten. Für Benutzer, die einen wiederkehrenden oder automatisierten Arbeitsablauf benötigen – insbesondere solche, die weniger vertraut mit Code sind – könnte der unten beschriebene Add-In-Ansatz effizienter sein.
 | Möchten Sie eine Gehaltserhöhung und gleichzeitig mehr Zeit, um Ihre Familie zu begleiten? Office Tab steigert Ihre Effizienz um 50 % bei der Arbeit in Microsoft Office – sofort
|
Unglaublich: Mit zwei oder mehr Dokumenten arbeiten Sie einfacher und schneller als mit nur einem.Bildnamen oder bestimmte Dateityp aus einem Ordner mithilfe der Dateinamenliste-Funktion in Excel auflisten
Wenn Sie häufig alle Dateien oder Bilder aus verschiedenen Ordnern auflisten müssen – etwa mit Auswahlmöglichkeiten für den Dateityp, der Einbeziehung von Unterordnern oder sogar mit direkten Hyperlinks – bietet Kutools für Excel eine speziell dafür entwickelte Dateinamenliste-Funktion. Dieses leistungsstarke Werkzeug ermöglicht es Ihnen effizient:
- Listen Sie alle Dateien aus einem beliebigen Ordner – unabhängig von der Dateierweiterung – in einem Neues Arbeitsblatt auf, um diese einfach nachverfolgen oder katalogisieren zu können.
- Filtern und listen Sie nur die von Ihnen angegebenen Dateityp auf, beispielsweise Bilder, PDFs oder benutzerdefinierte Erweiterungen.
- Beziehen Sie auch Dateien aus Unterordnern ein und zeigen Sie versteckte Dateien und Ordner an, um einen wirklich umfassenden Bericht zu erhalten.
Verabschieden Sie sich jetzt von der Maus-Hand und der Halswirbelsäulenerkrankung
300 erweiterte Werkzeuge von Kutools für Excel erledigen 80 % Ihrer Excel-Aufgaben im Handumdrehen und befreien Sie von tausenden Mausklicks.
 |
|
Meistern Sie 1500 Arbeitsszenarien mühelos – ohne Zeit mit der Suche nach Lösungen zu verlieren und mit mehr Freiraum, um das Leben zu genießen.Nach der Installation von Kutools für Excel (ein schneller und einfacher Vorgang) führen Sie die folgenden Schritte aus, um Datei- oder Bildnamen aus einem Ordner aufzulisten:
1. Öffnen Sie die Excel-Arbeitsmappe, in der die Dateiliste angezeigt werden soll. Wechseln Sie zur Registerkarte KUTOOLS PLUS, wählen Sie Import/Export und klicken Sie dann auf Dateinamenliste.
2. Klicken Sie im Dialogfeld Dateinamenliste zunächst auf 
, um den Ordner mit Ihren Dateien oder Bildern auszuwählen. Aktivieren Sie optional das Kontrollkästchen Dateien in Unterverzeichnissen einschließen, um Dateien aus allen Unterordnern einzubeziehen, und Versteckte Dateien und Ordner einschließen, um sicherzustellen, dass auch versteckte Dateien – falls erforderlich – in der Liste erscheinen.
3. Legen Sie im Abschnitt Dateityp fest, welche Dateien aufgelistet werden sollen. Sie haben mehrere Anpassungsoptionen:
4. Wählen Sie im Dropdown-Menü Einheit der Dateigröße (Byte, KB, MB usw.) Ihre bevorzugte Einheit für eine detailliertere Nachverfolgung aus und aktivieren Sie Hyperlink erstellen, wenn jeder Dateiname in Excel direkt mit der entsprechenden Datei auf Ihrem System verknüpft werden soll – ideal für schnelles Öffnen und zukünftige Navigation.
 |  |
5. Klicken Sie auf OK. Kutools generiert eine vollständige Liste Ihrer angegebenen Dateien – gegebenenfalls mit zusätzlichen Informationen wie Dateigröße, Typ und Erstellungszeit – in einem neuen Arbeitsblatt.
Tipps und Fehlerbehebung: Wenn Ihr Ordner viele Dateien oder Unterordner enthält, lassen Sie einige Sekunden Zeit für die Verarbeitung. Sollten nicht alle erwarteten Dateien enthalten sein, überprüfen Sie bitte erneut den Dateityp-Filter sowie die Optionen für Unterordner und stellen Sie sicher, dass versteckte Dateien bzw. Ordner nicht ausgeschlossen wurden – es sei denn, dies war beabsichtigt. Für laufend aktualisierte Verzeichnisse mit generierten Dateien führen Sie den Prozess zur Erstellung der Dateinamenliste einfach erneut aus, um die Liste in Ihrer Arbeitsmappe auf den neuesten Stand zu bringen. Dieser Ansatz eignet sich besonders gut für Anwender mit regelmäßigem Dokumentationsbedarf oder zur effizienten Massenverwaltung digitaler Assets.
Eine weitere nützliche Kutools-Funktion zur Dateiverwaltung ist das Werkzeug Verknüpfungstabelle erstellen – ideal, um alle Arbeitsblätter in Ihrer Excel-Datei zu dokumentieren oder miteinander zu verlinken. Kombinieren Sie beide Werkzeuge, um umfassende Arbeitsmappen- und Dateidokumentationen zu erstellen:
Kutools für Excel: eine vielseitige Sammlung benutzerfreundlicher Werkzeuge, die komplexe Vorgänge in Excel vereinfachen und beschleunigen.
Alle Dateinamen durch Kopieren und Einfügen aus dem Windows-Explorer auflisten
Für schnelle und grundlegende Anforderungen ohne Skripte oder Add-Ins können Sie Windows Explorer in Kombination mit Excel verwenden, um eine Liste der Dateinamen zu erhalten. Diese Methode ist effektiv, wenn Sie Dateityp oder erweiterte Filterfunktionen nicht benötigen.
1. Öffnen Sie den gewünschten Ordner im Windows Explorer (Datei-Explorer).
2. Drücken Sie Strg+A, um alle Dateien auszuwählen, halten Sie dann die Umschalttaste gedrückt und klicken Sie mit der rechten Maustaste auf eine beliebige der markierten Dateien. Klicken Sie im Kontextmenü auf Als Pfad kopieren.
3. Wechseln Sie zu Ihrem Excel-Arbeitsblatt, wählen Sie die Startzelle aus und drücken Sie Strg+V, um den Dateipfad (einschließlich Dateiname) jeder ausgewählten Datei einzufügen.
Hinweis: Diese Methode aktualisiert sich nicht automatisch, wenn sich Dateien im Ordner ändern, und berücksichtigt keine Unterordner.
Tipp: Nur Dateinamen (nicht vollständige Pfade) anzeigen
Wenn Sie nur die Dateinamen (und nicht die vollständigen Pfade) anzeigen möchten, verwenden Sie eine Formel in Excel, um die Dateinamen aus den Pfaden zu extrahieren. Wenn sich Ihre Dateipfad beispielsweise in Spalte A befinden, geben Sie diese Formel in Zelle B1 ein:
=TRIM(RIGHT(SUBSTITUTE(A1,"\",REPT(" ",255)),255))Kopieren Sie die Formel in B1 für alle Zeilen nach unten, um ausschließlich die Dateinamen abzurufen. Passen Sie bei Bedarf die Zellbezüge an.
Verwandte Artikel
Wie heben Sie sich von der Masse ab, arbeiten mühelos und genießen ein entspanntes Leben?
Kutools für Excel steigert Ihre Effizienz täglich im Durchschnitt um 80 % – so bleibt Ihnen mehr Zeit, um mit Ihrer Familie zu entspannen und das Leben zu genießen.
300 Erweiterte Werkzeuge lösen 80 %Excel-Probleme – Sie müssen nicht länger mühsam nach Lösungen suchen und erledigen Ihre Arbeit viel leichter.
Meistern Sie spielend 1.500 Excel-Szenarien und sparen Sie täglich mindestens eine Stunde.
Werden Sie in nur 5 Minuten zum Excel-Experten – und sichern Sie sich Anerkennung sowie Aufstiegschancen.
Ein-Klick-Werkzeuge übernehmen die Stapelverarbeitung, ersparen Ihnen tausende Mausklicks und verabschieden sich vom lästigen Mausarm.
Verabschieden Sie sich vom stupiden Auswendiglernen von Formeln und komplexem VBA – gönnen Sie Ihrem Gehirn eine wohlverdiente Pause.
110.000+ ist die Wahl effizienter Fachkräfte und über 300 weltweit renommierter Unternehmen.
Kostet nur 39 $, bietet aber weitaus mehr Wert als 4000-$-Schulungen anderer Anbieter.
30 Tage kostenlose Testversion ohne jegliche Einschränkungen – und volle Rückerstattung innerhalb von 30 Tagen, ohne dass Sie einen Grund angeben müssen.
Empfohlene Produktivitätswerkzeuge
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