Stefan's Weblog

13Jun/150

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

Das Ergebnis der Prüfung wird vom Makro in die Spalte D geschrieben.

Hyperlink - Prüfungsergebnis

Hyperlink - Prüfungsergebnis

hat dir dieser Artikel gefallen?

Dann abonniere doch diesen Blog per RSS Feed!

Kommentare (0) Trackbacks (0)

Zu diesem Artikel wurden noch keine Kommentare geschrieben.


Leave a comment

Noch keine Trackbacks.

%d Bloggern gefällt das: