---

LINK_TESTER.png

Hallo,

ich bin auf der Suche nach einem Makro welches im Aktiven Blatt die Zeilen Schritt für Schritt durchschaut ob sich in der Spalte AE ein Hyperlink befindet und wenn ja dann überprüft ob die Datei existiert oder eben nicht.

Der Hyperlink wurde mit einer Formel erzeugt.

Im Anhang noch ein Bild von meinem Problem. Hoffe ich konnte mich deutlich ausdrücken.

Ich bitte euch um Hilfe

Gruß Christian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

Sub HyperlinkCheck()
    Dim HyperlinkCheck As String
    Dim varcol As String
    Dim lRow As Long
    With ActiveSheet
   
    varColumn = "A" 'Spalte die durchsucht werden soll

        For lRow = .Range(varColumn & .Rows.Count).End(xlUp).Row To 2 Step -1
            HyperlinkCheck = Dir(Replace(.Cells(lRow, Range(Range(varColumn & "1").Address).Column).Value, "file:\\", ""), vbDirectory)
            .Cells(lRow, Range(Range(varColumn & "1").Address).Column).Interior.ColorIndex = _
                IIf(HyperlinkCheck = "", 3, xlColorIndexAutomatic)
        Next
    End With
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Fehler.png

Hallo Thomas,

wahrscheinlich steh ich gerade auf der Leitung aber ich bring das Makro nicht zum laufen.

Was muss ich denn noch anpassen?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

fehlende_BIBI_frage.png

keine Ahnung -

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP