Verknüpfungen zu anderen Tabellen auflisten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Verknüpfungen zu anderen Tabellen auflisten von: Giuseppe
Geschrieben am: 09.02.2005 09:41:07

Hallo VBA-Profis

Ich habe ein kleines Problem:

In einer Arbeitsmappe möchte ich gerne alle Verknüpfungen zu externen Arbeitsmappen
auflisten.
Dazu habe ich folgendes Makro gefunden und angepasst:


Sub Verknüpfungen_finden()
  Dim Zelle As Object, ersteAdresse$ 'erste Verknüpfung finden
  Dim sh As Worksheet
  For Each sh In Worksheets
    Set Zelle = Cells.Find(What:="]", LookIn:=xlFormulas)
    If Not Zelle Is Nothing Then
        ersteAdresse = Zelle.Address
        '
        Dim Zeile As Integer
        Zeile = 15
        Cells(Zeile, 3) = ersteAdresse
        Cells(Zeile, 5) = Range(Zelle.Address).Text
        '
        	'MsgBox "Verknüpfung in: " & sh.Name & "!" & ersteAdresse & _
        	'Chr(10) & Chr(10) & "Verknüpfung: " & _
        	'Chr(10) & Range(Zelle.Address).Formula
            
        'weitere Verknüpfungen finden
        Do
            Set Zelle = Cells.FindNext(Zelle)
            If Zelle.Address = ersteAdresse Then Exit Do
            '
            Zeile = Zeile + 1
            Cells(Zeile, 3) = Zelle.Address
            Cells(Zeile, 5) = Range(Zelle.Address).Text
            '
            	'MsgBox "Verknüpfung in: " & sh.Name & "!" & Zelle.Address & _
                'Chr(10) & Chr(10) & "Verknüpfung: " & _
                'Chr(10) & Range(Zelle.Address).Formula
        Loop While Not Zelle Is Nothing And Zelle.Address <> ersteAdresse
    End If
    Set Zelle = Nothing
  Next sh
End Sub



Nun meine Fragen:

- Ich möchte die Verknüpfung nur der aktuellen Mappe sehen; die anderen Mappen nicht
- Ich möchte nur "externe" Verknüpfungen zu anderen Tabellen sehen
- Ich möchte nur die Datei und die Tabelle wissen, die einzelnen Felder nicht.

... genau so wie in der Menü-Anzeige: Verknüpfungen

BSP:

=C:\Temp\[Test.xls]Tabelle1


Lässt sich da was machen?
Kann mir jemand helfen?

mfG
Giuseppe
Bild


Betrifft: AW: Verknüpfungen zu anderen Tabellen auflisten von: Michael
Geschrieben am: 09.02.2005 16:24:51

Also wenn du die so haben willst wie in der Verknüpfungsübersicht dann könnte dir das weiterhelfen. Allerdings werden hier die Tabellen nicht mit angezeigt (was sie bei mir in den Verknüpfungen auch nicht werden).


Sub Test()
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
    For i = 1 To UBound(aLinks)
        MsgBox "Link " & i & ":" & Chr(13) & aLinks(i)
    Next i
End If
End Sub



Bild


Betrifft: AW: Verknüpfungen zu anderen Tabellen auflisten von: Giuseppe
Geschrieben am: 10.02.2005 08:46:13

Hallo Michael

Erst mal herzlichen Dank
Das Makro funktioniert recht gut

Da ich bei meinen Modulen immer "Option Explicit"
verwende, bringt Dein Makro fehlermeldungen.

Wenn ich das "Option Explicit"
entferne funktioniert es einwandfrei.

An was kann das liegen?
Kannst Du mir evt. weiterhelfen?

mfG
Giuseppe


Bild


Betrifft: AW: Verknüpfungen zu anderen Tabellen auflisten von: andre
Geschrieben am: 13.02.2005 16:24:43

Hallo Guiseppe,
da musst DU die Variablen dimensionieren, z.B.
Dim aLinks, i as Integer
aLinks bleibt dabei Variant - wenn man den Typ nicht kennt geht das meistens, sollte man wenns anders geht vermeiden.
i ist Ganzzahl, geht um eine Aufzählung.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Verknüpfungen zu anderen Tabellen auflisten"