Ich hoffe, ihr könnt mich wieder einmal aus einer Verknüpfungs-Falle retten:
Meine Arbeitsmappe ist mit einer anderen verknüpft.
Wie kann ich per VBA abfragen, ob die verknüpfte Datei gerade offen ist?
Danke im Voraus
Johann
Sub Link()
Dim wsh As Worksheet, c As Range, v As Boolean
On Error Resume Next
For Each wsh In Worksheets
For Each c In wsh.Cells.SpecialCells(xlCellTypeFormulas, 23)
If InStr(c.Formula, ":\") > 0 Then
v = -1
Exit For
End If
Next
If v Then Exit For
Next
If v Then
MsgBox "Nicht offen"
Else
MsgBox "Offen"
End If
End Sub
mfg Herbert