Hyperlink mit VBA prüfen

Mit dem Makro lassen sich sehr einfach Hyperlinks in einer Excel-Tabelle prüfen, d.h. ist die verlinkte-Datei an diesem Ort zu finden.

Excel-Hyperlinks
Excel-Hyperlinks

Sub HyperlinkTest()
    Dim hLink As Hyperlink
    
    ' Prüft das aktive Arbeitsblatt und die Hyperlinks in Spalte 2
    With ActiveSheet.Columns(2)
        ' Schreibt den Erfolg der Prüfung in die Spalte Columns(x) + 3
        For Each hLink In .Hyperlinks
            .Cells(hLink.Range.Row, 3) = _
                IIf(Dir(hLink.Address) <> "", "OK", "nicht OK")
        Next
    End With
End Sub