Verknüpfungen in Arbeitsmappe auflisten

01. Juli 2010
Martin Althaus Von Martin Althaus, Excel, Office ...

So erhalten Sie eine Liste der Verknüpfungen per Makro

Verknüpfungen auf andere Tabellen sind praktisch, wenn Sie Kalkulationen und Daten strukturieren möchten.

Manchmal ist es aber erforderlich, in den Verknüpfungen nicht die Übersicht zu verlieren. Über ein Makro können Sie eine Liste mit allen Verknüpfungen in einer Arbeitsmappe erzeugen. So sieht das Makro aus:

Sub ZeigeVerknuepfteZellen()
Dim Tabelle As Worksheet
Dim Verknuepfungen As Variant
Dim i As Integer
Verknuepfungen = ActiveWorkbook.LinkSources(xlExcelLinks)
If IsEmpty(Verknuepfungen) Then
 MsgBox "Keine Verknüpfungen gefunden."
Else
 Set Tabelle = Workbooks.Add.Worksheets(1)
 For i = 1 To UBound(Verknuepfungen)
  Tabelle.Cells(i, 1).Formula = "Verknüpfung " & i & ": " & Verknuepfungen(i)
 Next i
End If
End Sub

Wenn das Makro keine Verknüpfungen in der aktuellen Arbeitsmappe findet, weist ein Hinweisfenster auf diesen Umstand hin. Die folgende Abbildung zeigt, wie das Hinweisfenster aussieht:

Falls Verknüpfungen in der aktiven Arbeitsmappe enthalten sind, legt das Makro eine neue, leere Arbeitsmappe an und erzeugt in Spalte A eine Liste der Verknüpfungen. Die folgende Abbildung zeigt, wie diese Auflistung aussehen kann:

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, 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

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"