Hallo Allerseits,

ich möchte gerne über VBA externe Verknüpfungen aktualisieren.

Dabei muss ich den Namen der aktualisierten Datei auslesen, da sich dieser ständig ändert.

Leider funktioniert mein Code nicht:

Private Sub CommandButton1_Click()
Dim Verknüpfung$

Application.ScreenUpdating = False

Verknüpfung = Application.GetOpenFilename("Excel-Files (*.xls), *.xls", , "Bitte wählen Sie die aktuelle SHIP ADMINISTRATION-Datei aus:")

If Dir(Verknüpfung) = "" Then Exit Sub

If Dir(Verknüpfung) <> "" Then

aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
ActiveWorkbook.ChangeLink "aLinks", "Verknüpfung"

End If

End Sub

Kann mir jemand helfen?
Vielen Dank.

Gruß
Daniel

alle Antworten zu dieser Frage