Verknüpfungen zu anderen Tabellen auflisten
09.02.2005 09:41:07
Giuseppe
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