Liste all Arbeitsmappe Verknüpfungen in einer Arbeitsmappe mit VBA in Microsoft Excel
auf Fügen Sie den folgenden Code in das Standardmodul Sub ListLinks() Dim aLinks As Variant aLinks = ActiveWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(aLinks) Then Sheets.Add For i = 1 To UBound(aLinks) Cells(i, 1).Value = aLinks(i) Next i End If End Sub ein