ich habe ein Makro, welches Links zu *.pdf Dateien auf deren Gültigkeit überprüft.
Das funktioniert auch gut, solange die Dateien in einen Verzeichnis auf meinem Rechner abgelegt sind.
Leider funktioniert es nicht, wenn die Dateien im Netzwerk abgelegt sind.
Hat jemand eine Idee woran es liegen könnte?
Hier mein Code:
Public Function LinksPruefen()
Dim L As Range, hLink As Hyperlink
Dim strAusgabe As String
'On Error Resume Next
For Each L In Selection
If L.Value "" Then
If L.Hyperlinks.Count And Not L Like "*@*" Then
For Each hLink In L.Hyperlinks
If Dir(hLink.Address) = "" Then
strAusgabe = strAusgabe & "Ungültiger Hyperlink " & "in Zelle " _
& Mid(Replace(L.Address, "$", " "), 2) & " " & vbLf
End If
Next hLink
End If
End If
Next L
If strAusgabe = vbNullString Then
MsgBox "Es wurden keine ungültigen" & vbCrLf & "Hyperlinks gefunden."
Else
MsgBox strAusgabe, , "Ergebnis"
End If
End Function
Besten Dank für eure Tipps.Gruß,
Thomas