Mit einem Excel-Makro alle Verknüpfungen der Arbeitsmappe auflisten

Wie Sie in Excel eine Liste aller extern verknüpften Mappen erhalten

Sie möchten wissen, auf welche Arbeitsmappen eine Tabelle externe Verknüpfungen enthält? Um makrogesteuert eine passende Tabelle anzulegen, setzen Sie das folgende Makro ein:

Sub VerknuepfungenAuflisten()

Dim NeuTabelle As Worksheet

Dim Liste As Variant

Dim i As Integer

Dim a as String

Liste = ActiveWorkbook.LinkSources(xlExcelLinks)

If Not IsEmpty(Liste) Then

Set NeuTabelle = ActiveWorkbook.Worksheets.Add

For i = 1 To UBound(Liste)

NeuTabelle.Cells(i, 1) = Liste(i)

Next i

Else

a = MsgBox("Keine Verknüpfungen gefunden!", vbOKOnly, "Hinweis")

End If

End Sub

Das Makro legt in der aktiven Arbeitsmappe eine neue, leere Tabelle an und führt dort alle Arbeitsmappen auf, die über Links in Zellen extern verbunden sind. Dabei taucht jeder Pfad nur ein einziges Mal auf - Sie erhalten also so eine kompakte Übersicht, wie die folgende Abbildung zeigt:

Falls keine externen Verknüpfungen gefunden werden, weist Excel mit einem entsprechenden Fenster auf diesen Umstand hin:

Das Makro setzt die Auflistung LinkSources ein. Die einzelnen Einträge dieser Liste werden in Zellen eines neuen Tabellenblatts übertragen.