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

23. April 2008
Martin Althaus Von Martin Althaus, Excel, Office ...

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:

Excel-Tabelle externe Verknüpfung

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

Excel Verknüpfung

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

  • 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.

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"