Hallo zusammen,
mit diesem Makro aktualisiere ich auf Knopfdruck externe Verknüpfungen (es handelt sich nur um eine Datei, die verknüpft ist). Die verknüpfte Datei ist geschlossen.
Sub linkupdate()
Application.ScreenUpdating = False
Worksheets("SUM_BY_CUST").Unprotect 'Wird zum Aktualisieren der Verknüpfungen benötigt
Dim arrLinks
With ActiveWorkbook
If Not IsEmpty(.LinkSources) Then
arrLinks = .LinkSources
ActiveWorkbook.UpdateLink Name:=arrLinks(1)
Else
MsgBox "Datei hat keine Verknüpfungen", vbInformation + vbOKOnly, _
"1. Verknüpfung der Datei aktualisieren"
End If
End With
Worksheets("SUM_BY_CUST").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
Wenn ich die verknüpfte Datei vor der Ausführung des Makros öffne, erhalte ich die Fehlermeldung "Die Methode "UpdateLink" für das Objekt '_Workbook' ist fehlgeschlagen".
Warum ist das so bzw. wie kann ich die Fehlermeldung verhindern? Ich erwarte mir vom vorherigen Öffnen der verknüpten Datei einige Sekunden Geschwindigkeitsgewinn...