Sub aTst()
Dim aLinks, ii As Integer
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
For ii = 1 To UBound(aLinks)
MsgBox "Aktualisiere " & aLinks(ii)
ActiveWorkbook.UpdateLink Name:=aLinks(ii)
Next ii
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Sub aTst()
Dim aLinks, ii As Integer
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
MsgBox "Aktualisiere " & aLinks(1)
ActiveWorkbook.UpdateLink Name:=aLinks(1)
End If
End Sub
oder das Ganze z. B. mit (2) statt (1)
Da ich die Namen deiner Quellmappen natürlich nicht kenne, habe ich sie mit LinkSources() ermittelt.
Du kannst auch ganz einfach per Makroaufzeichnung eine Prozedur erstellen,
die die Verknüpfungen zu einer bestimmten Quellmappe aktualisieren lässt.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort