ich möchte gerne vorhandene Verknüpfungen aktualisieren.
Das unten angegebene Makro möchte ich so anpassen das
keine Inbox mehr erscheint, sondern der Explorer
sich in einer bestimmten Ablage öffnet und ich dann
die Datei auf die sich die Verknüpfungen neu beziehen
auswählen kann, wie geht das ?
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