Alle Arbeitsmappen in einem Verzeichnis auflisten

24. Juni 2009
Martin Althaus Von Martin Althaus, Excel, Office ...

So erstellen Sie eine Liste Ihrer Arbeitsmappen

Sie möchten eine Liste mit allen Excel-Dateien aus einen Verzeichnis in Excel erstellen? Das geht per Makro! Mit dem folgenden Makro erzeugen Sie eine Liste, in der alle Dateien aus einem gewählten Verzeichnis Ihres Systems zu finden sind:

Sub ListeArbeitsmappenAuf()
Dim Zeile As Long
Dim Dateiname As String
Zeile = 1
Dateiname = Dir("c:\Dateien\*.xls?")
With Workbooks.Add.Worksheets(1)
Do While Dateiname <> ""
.Cells(Zeile, 1) = Dateiname
Zeile = Zeile + 1
Dateiname = Dir()
Loop
End With
End Sub

Welches Verzeichnis eingesetzt wird, definieren Sie in der Zeile Dateiname =. Legen Sie hier den gewünschten Pfad fest. Achten Sie darauf, dass hinter dem Pfad die Angabe \*.xls? folgen muss. Sie sorgt dafür, dass Excel sowohl Arbeitsmappen aus Excel bis einschließlich Version 2003 erkennt (XLS-Dateien) als auch Arbeitsmappen ab Version 2007 (XLSX-Dateien).

Die folgende Abbildung zeigt, wie das Ergebnis aussehen kann, wenn Sie das Makro starten:

Anstelle von Excel-Dateien können Sie mit dem Makro auch Listen anderer Dateitypen anlegen. Passen Sie dazu die Angabe für die Namenserweiterung an. Um beispielsweise alle PDF-Dateien im Verzeichnis C:\Daten aufzulisten, setzen Sie folgende Wertzuweisung für die Variable Dateiname ein:

Dateiname = Dir("c:\Daten\*.pdf")

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und anschließend aufrufen, finden Sie hier eine Kurzbeschreibung: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

  • Excel Vorlagen zum Sofort-Download
  • Geprüfte Vorlagen zum Sofort-Einsatz
  • Gratis Makros & Add-Ins im Downloadcenter
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"