Fehlerhafte Hyperlinks
06.11.2014 11:00:17
Gregor
Im Forum habe ich folgenden Code zum Checken der Hyperlinks gefunden:
Sub Fehlerhafte_Hyperlinks_finden()
Dim Dummy As Variant
Dim RealRecht As Hyperlink
Dim DateiName As String
Dim Zeile As Integer
Dim Spalte As Integer
For Each RealRecht In ActiveSheet.Hyperlinks
DateiName = RealRecht.Address
Zeile = RealRecht.Range.Row
Spalte = RealRecht.Range.Column
If Dir(DateiName) = "" Then
Dummy = MsgBox(DateiName & vbCr & "in Zelle " & Zeile & "|" & Spalte & vbCr & "ist ungültig", _
_
vbInformation, "Broken Link")
End If
Next
End Sub
Ich erhalte immer den Laufzeitfehler 52 Dateiname oder -nummer falsch.
Was muss ich machen, dass der Code nicht unterbrochen wird und mir Hyperlinks die nicht funktionieren (zB. falsche Adresse) aufzeigt?
Vielen Dank und Gruss
Gregor
Anzeige