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

Bestseller Nr. 1

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

Hyperlink - Prüfungsergebnis
Hyperlink – Prüfungsergebnis

(**) Produktpreise und -verfügbarkeit sind zum angegebenen Datum / Uhrzeit korrekt und können sich ändern. Alle Preis- und Verfügbarkeitsinformationen auf https://www.amazon.de/ zum Zeitpunkt des Kaufs gelten für den Kauf dieses Produkts.

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.