ich habe eine Liste mit etwa 500 Hyperlinks.
Die LINKS greifen alle auf Datei-Ordner zu.
Gibt es eine Möglichkeit, die LINKS auf Gültigkeit zu prüfen.
(Hyperlinks sind alle in der Kolonne J ab Zeile 2)
Danke für eine Hilfe.
Markus
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Sub checkLink()
Dim objLink As Hyperlink
For Each objLink In Range("J:J").Hyperlinks
If IsFolder(objLink.Address) Then
objLink.Range.Offset(0, 1) = "OK"
Else
objLink.Range.Offset(0, 1) = "Fehler"
End If
Next
End Sub
Private Function IsFolder(ByVal FolderName As String) As Boolean
On Error Resume Next
IsFolder = ((GetAttr(FolderName) And vbDirectory) = vbDirectory)
End Function