Thema: Externe Verknüpfungen lokal umleiten

StandardModule: basMain

Sub DeleteLinks()
   Dim vLink As Variant
   Dim iCounter As Integer
   vLink = ActiveWorkbook.LinkSources(xlExcelLinks)
   If Not IsEmpty(vLink) Then
      For iCounter = 1 To UBound(vLink)
         ActiveWorkbook.ChangeLink Name:=vLink(iCounter), _
            newname:=ThisWorkbook.Name
      Next iCounter
   End If
End Sub

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