Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub LinkUmleitung()
   Dim var As Variant
   Dim iCounter As Integer
   Dim sName As String, sPath As String, sExt As String
   sPath = ThisWorkbook.Path & "\"
   sExt = ".xls"
   sName = InputBox( _
      prompt:="Quellarbeitsmappe:", _
      Default:="test2")
   If sName = "" Then Exit Sub
   sName = sPath & sName & sExt
   var = ActiveWorkbook.LinkSources(xlExcelLinks)
   If Not IsEmpty(var) Then
      For iCounter = 1 To UBound(var)
         ActiveWorkbook.ChangeLink _
            Name:=var(iCounter), newname:=sName
       Next iCounter
    End If
End Sub

    

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