Thema: Verknüpfungen der aktiven Mappe listen

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

Beiträge aus dem Excel-Forum zu den Themen Link und Extern