Verknüpfte Dateien öffnen und schließen
08.02.2019 12:58:58
fox060381
ich habe eine Excel Datei, die mit diversen anderen Excel Dateien verknüpft ist. Zu einer bestimmten Datei wird immer wieder der Bezug verloren, so dass nur noch #WERT! erscheint. Wenn ich dann über Daten => Verknüpfung bearbeiten => Quelle öffne die Datei öffne ziehen sich wieder die Daten. Das ist ziemlich umständlich. Bei den anderen Dateien habe ich den Eindruck, dass sich die Daten nicht immer automatisch aktualisieren.
Um das Problem zu beheben habe ich ein Makro geschrieben, welches alle verknüpften Dateien nacheinander öffnet und schließt. Im Makro habe ich den exakten Speicherort etc. genau angegeben. Leider bringt die Funktion nichts, wenn #WERT! auftaucht. Dann muss ich über Daten => Quelle öffnen die Datei öffnen. Sonst aktualisieren sich die Werte nicht.
Ich habe jetzt im Forum diesen Code gefunden:
Sub ÖffnenUndSchliessenAllerVerknüpftenArbeitsmappen()
Dim Links As Variant
Dim wb As Workbook
Links = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(Links) Then
For i = 1 To UBound(Links)
'Aufruf Aktualisierung ausschalten: ", UpdateLinks:=0"
Set wb = Workbooks.Open(Links(i), UpdateLinks:=0)
'Speicheranfrage unterdrücken:
ActiveWorkbook.Saved = True
wb.Close
Next i
Else
MsgBox "Diese Arbeitsmappe hat keine Verknüpfungen zu anderen Mappen!"
End If
End Sub
Kann man das irgendwie umgehen? Oder noch besser: Weiß jemand, warum Excel anscheinend die Verknüpfung zu den Dateien verliert?
Die Excel liegt auf einem SharePoint, die anderen Dateien auf dem gleichen oder einem anderen SharePoint und auf zwei unterschiedlichen Netzwerklaufwerken.
Vielen Dank für Eure Hilfe und ein schönes Wochenende!
Anzeige