Verknüpfung auslesen
06.06.2020 11:18:15
Marquardt
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