fehlende Verknüpfung aufspüren

[Glausius]

Hallo Stefan,

ja genauso ist es, 2012 enthält keinerlei Verknüpfungen.

Hallo André,

ich habe die Zeile If Not ... eingefügt und jetzt läuft der Code erst einmal wieder fehlerlos durch, aber wo wird mir denn nun mitgeteilt, dass in 2011 eine fehlerhafte Verknüpfung enthalten ist? Denn das ist ja das Ziel der Übung - mit der fehlerhaften Verknüpfung würde es ja bereits mit der Ergänzung False beim Open-Ereignis gemäß snb ebenfalls ohne anzuhalten durchlaufen.

[snb]

Wenn der Fehler gelöst ist braucht man doch kein Meldung mehr ?

[schauan]

Hallo Günter,

das könnte dann so aussehen:

Code:

'
           If Not IsEmpty(.LinkSources(xlExcelLinks)) Then
             For Each it In .LinkSources(xlExcelLinks)
               If Dir(it) = "" Then
                 MsgBox ActiveWorkbook.Name & vbLf & it
                 .BreakLink it, 1
               End If
             Next
           End If

[Glausius]

snb,

jetzt drehen wir uns im Kreis!

Mit dem jetzigen Code wird nicht mehr der Hinweis auf fehlerhafte Verknüpfungen angezeigt - so weit so gut, sie ist aber immer noch vorhanden und könnte zu unerwünschten Reaktionen führen.

Anfangs wurde beim Stoßen auf eine solche der entsprechende Hinweis angezeigt, nur nicht, welche Datei ihn  auslöst - und genau das will ich wissen, damit ich diese Verknüpfung bereinigen kann.

In dem eingestellten Test habe ich in der Datei 2011 eine Verknüpfung eingebaut, die auf eine nicht mehr vorhandene Datei verweist und danau das sollte mir angezeigt werden.
Da die Dateienreihung von 2000 bis jetzt 2017 mit je Datei von bis zu 26 Einzeltabellen reicht, sollte nicht jede einzelne Datei durchforstet werden müssen.

[Glausius]

Hallo André,

genau das war die entsprechende Codezeile, es wird die Datei mit der fehlerhaften Verknüpfung angezeigt!
Danke!