Tutorial: Automatische Hyperlinks zu allen Dateien und Unterordnern in Excel erstellen

Hier ist ein ausführliches Tutorial, wie du in Excel automatisch eine Liste aller Dateien und Unterordner eines Verzeichnisses inklusive klickbarer Hyperlinks erstellst.

Wir behandeln zwei Methoden: Die moderne Variante über Power Query (ohne Programmierung) und die klassische Variante über VBA (vollautomatisch per Knopfdruck).

In großen Projekten verliert man schnell den Überblick über gespeicherte Dokumente. Anstatt jeden Link manuell einzufügen, kannst du Excel die Arbeit überlassen.

Methode 1: Power Query (Der moderne Weg – ohne Programmierung)

Diese Methode ist ideal, wenn du eine übersichtliche Tabelle aller Dateien inkl. Metadaten (Größe, Änderungsdatum) möchsten.

Schritt 1: Ordnerinhalt abrufen

1. Öffne ein leeres Excel-Arbeitsblatt.
2. Gehe im Menüband auf den Reiter Daten.
3. Klicke auf Daten abrufen > Aus Datei > Aus Ordner.
4. Wähle den gewünschten Ordner aus und klicke auf Öffnen.

Schritt 2: Daten transformieren

1. Ein Vorschaufenster erscheint. Klicke unten auf Daten transformieren.
2. Der Power Query-Editor öffnet sich. Du siehst nun Spalten wie Content, Name, Extension, Folder Path usw.
3. (Optional) Lösche Spalten, die du nicht brauchst, aber behalte unbedingt Name und Folder Path.

Schritt 3: Den Hyperlink-Pfad vorbereiten

Damit Excel später einen Link daraus machen kann, kombinieren wir Pfad und Dateiname:

1. Klicke auf den Reiter Spalte hinzufügen > Benutzerdefinierte Spalte.
2. Gib als Spaltenname z. B. Vollständiger_Pfad ein.
3. Gib folgende Formel ein: =[Folder Path] & [Name]
4. Klicke auf OK.

Schritt 4: Laden und Hyperlink-Formel anwenden

1. Klicke auf Datei > Schließen & laden. Die Liste erscheint nun in Excel.
2. Gehe in die Zelle rechts neben deine Tabelle (z. B. Spalte F).
3. Gib folgende Formel ein (angenommen, dein Pfad steht in Zelle E2 und der Name in A2): =HYPERLINK(E2; A2)
4. Ziehe die Formel nach unten. Fertig!

Methode 2: VBA-Makro (Der schnelle Weg per Knopfdruck)

Diese Methode ist perfekt, wenn du die Liste oft aktualisieren musst oder eine sehr tiefe Ordnerstruktur hast.

Schritt 1: VBA-Editor öffnen

1. Drücke ALT + F11, um den VBA-Editor zu öffnen.
2. Gehe auf Einfügen > Modul.

Schritt 2: Code einfügen

Kopiere den folgenden Code in das Modulfenster:

Sub ListeDateienUndOrdner()
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objSubFolder As Object
    Dim strPath As String
    Dim i As Long

    ' Pfad-Auswahl-Dialog
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Wähle den Ordner aus"
        If .Show = -1 Then
            strPath = .SelectedItems(1) & "\"
        Else
            Exit Sub
        End If
    End With

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPath)

    ' Tabellenkopf erstellen
    Cells.Clear
    Range("A1").Value = "Name"
    Range("B1").Value = "Typ"
    Range("C1").Value = "Hyperlink"
    Range("A1:C1").Font.Bold = True

    i = 2

    ' Unterordner auflisten
    For Each objSubFolder In objFolder.SubFolders
        Cells(i, 1).Value = objSubFolder.Name
        Cells(i, 2).Value = "Ordner"
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 3), _
            Address:=objSubFolder.Path, _
            TextToDisplay:="Öffnen"
        i = i + 1
    Next objSubFolder

    ' Dateien auflisten
    For Each objFile In objFolder.Files
        Cells(i, 1).Value = objFile.Name
        Cells(i, 2).Value = "Datei"
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 3), _
            Address:=objFile.Path, _
            TextToDisplay:="Öffnen"
        i = i + 1
    Next objFile

    Columns("A:C").AutoFit
    MsgBox "Liste erfolgreich erstellt!", vbInformation
End Sub

Schritt 3: Makro ausführen

1. Schließe das VBA-Fenster (ALT + Q).
2. Drücke ALT + F8, wähle ListeDateienUndOrdner und klicke auf Ausführen.
3. Wähle im Dialog den Ordner aus. Excel erstellt nun blitzschnell eine Liste mit klickbaren Links.

Welche Methode soll ich wählen?

Pro-Tipp: Wenn du die Liste an Kollegen schickst, stelle sicher, dass diese auch Zugriff auf das Netzlaufwerk oder den Ordnerpfad haben, sonst funktionieren die Hyperlinks bei ihnen nicht!