Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Verknüpfungen der aktiven Mappe listen

Gruppe

Extern

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

    

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