Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Verknüpfung auslesen

Verknüpfung auslesen
06.06.2020 11:18:15
Marquardt
Hallo,
ich möchte alle Verknüpfungen einer Datei in einem Tabellenblatt anzeigen. Ich habe folgendes dazu gefunden.
Leider wird hier immer ein neues Tabellenblatt erzeugt. Ich möchte aber, dass die alten Daten immer überschrieben werden.
Habt Ihr eine Idee?

Sub MW_Verknuepfungen_auflisten()
Dim alinks As Variant
Dim i As Long
alinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(alinks) Then
ActiveWorkbook.Sheets.Add
Cells(1, 1) = "Verknüpfungen in dieser Arbeitsmappe"
For i = 1 To UBound(alinks)
Cells(i + 1, 1) = alinks(i)
Next i
Else
MsgBox "Diese Arbeitsmappe enthält keine Verknüpfungen!"
End If
End Sub

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verknüpfung auslesen
06.06.2020 11:26:01
Hajo_Zi
lösche die Zeile
ActiveWorkbook.Sheets.Add
vor Cells sollte die Tabelle angegeben werden, ansonsten wird es immer in die aktuelle geschrieben.

AW: Verknüpfung auslesen
06.06.2020 11:31:02
Marquardt
Hallo Hajo,
vielen Dank.
Kann ich dort auch das Tabellenblatt vorschreiben?
Gruß Detlef
Anzeige
AW: Verknüpfung auslesen
06.06.2020 13:03:08
Hajo_Zi
Hallo Tedlef,
warum habe ich es sonst geschrieben?
Worksheets("Tabelle123")
Gruß Hajo
AW: Verknüpfung auslesen
06.06.2020 13:31:16
Marquardt
Hallo Hajo,
vielen Dank für die Unterstützung und noch ein schönes Wochenende.
Gruß Detlef
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Verknüpfungen in Excel auslesen und verwalten


Schritt-für-Schritt-Anleitung

Um alle Verknüpfungen in Excel aus einer Datei auszulesen und in einem bestehenden Tabellenblatt anzuzeigen, kannst du das folgende VBA-Skript verwenden. Dieses Skript überschreibt die alten Daten, anstatt ein neues Tabellenblatt zu erstellen.

  1. Öffne deine Excel-Datei.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Klicke auf Einfügen und wähle Modul.

  4. Füge den folgenden Code in das Modul ein:

    Sub MW_Verknuepfungen_auflisten()
        Dim alinks As Variant
        Dim i As Long
        alinks = ActiveWorkbook.LinkSources(xlExcelLinks)
    
        'Angabe des Arbeitsblattes, in welches die Verknüpfungen geschrieben werden
        Dim ws As Worksheet
        Set ws = Worksheets("Tabelle123") ' Hier den Namen deines Tabellenblattes anpassen
    
        ' Alte Daten löschen
        ws.Cells.Clear
    
        If Not IsEmpty(alinks) Then
            ws.Cells(1, 1) = "Verknüpfungen in dieser Arbeitsmappe"
            For i = 1 To UBound(alinks)
                ws.Cells(i + 1, 1) = alinks(i)
            Next i
        Else
            MsgBox "Diese Arbeitsmappe enthält keine Verknüpfungen!"
        End If
    End Sub
  5. Schließe den VBA-Editor und führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.


Häufige Fehler und Lösungen

  • Fehler: "Diese Arbeitsmappe enthält keine Verknüpfungen!"

    • Lösung: Stelle sicher, dass deine Arbeitsmappe tatsächlich Verknüpfungen zu anderen Excel-Dateien hat. Überprüfe dies unter Daten > Abfragen und Verbindungen.
  • Fehler: Das Skript erzeugt ein neues Tabellenblatt.

    • Lösung: Achte darauf, die Zeile ActiveWorkbook.Sheets.Add zu entfernen und die richtige Tabelle anzugeben, z.B. Worksheets("Tabelle123").

Alternative Methoden

Wenn du keine VBA-Lösungen nutzen möchtest, kannst du auch die Daten-Registerkarte verwenden, um manuell Verknüpfungen zu finden:

  1. Klicke auf die Daten-Registerkarte.
  2. Wähle Verknüpfungen bearbeiten, um eine Übersicht aller Verknüpfungen in deiner Arbeitsmappe zu erhalten.

Diese Methode ist hilfreich, wenn du nur gelegentlich nach Verknüpfungen in Excel suchen möchtest.


Praktische Beispiele

Ein häufiges Szenario ist das Auslesen von Verknüpfungen aus einer Datei, die viele externe Datenquellen nutzt. Mit dem obigen VBA-Skript kannst du schnell alle Verknüpfungen auflisten und in einem festgelegten Tabellenblatt speichern, um eine bessere Übersicht zu erhalten.


Tipps für Profis

  • Nutze Excel VBA LinkSources, um gezielt nur bestimmte Verknüpfungen auszulesen. Du kannst die Filterung im VBA-Skript anpassen, um nur bestimmte Typen von Verknüpfungen anzuzeigen.
  • Halte deine Verknüpfungen aktuell, indem du regelmäßig das Skript ausführst und alte Verknüpfungen entfernst, die nicht mehr benötigt werden.

FAQ: Häufige Fragen

1. Kann ich das Skript für andere Excel-Versionen verwenden? Ja, das Skript sollte in den meisten neueren Excel-Versionen funktionieren, die VBA unterstützen.

2. Was passiert, wenn ich die falsche Tabellenblattbezeichnung eingebe? Das Skript wird einen Laufzeitfehler auslösen. Achte darauf, dass der Name des Tabellenblattes exakt mit dem Namen in deiner Arbeitsmappe übereinstimmt.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige