Gruppe
Link
Problem
Wie kann ich in einem Tabellenblatt alle Verknüpfungen der aktiven Arbeitsmappe auflisten lassen?
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