Gruppe
Link
Bereich
Extern
Thema
Verknüpfungen der aktiven Mappe listen
Problem
Wie kann ich in einem Tabellenblatt alle Verknüpfungen der aktiven Arbeitsmappe auflisten lassen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub LinkList()
Dim var As Variant
Dim iCounter As Integer
var = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(var) Then
For iCounter = 1 To UBound(var)
Cells(iCounter, 1) = var(iCounter)
Next iCounter
Else
Beep
MsgBox "Keine Verknüpfungen enthalten!"
End If
End Sub