Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Fehlerhafte Hyperlinks

• Fehlerhafte Hyperlinks von Gregor vom 06.11.2014 11:00:17
• AW: Fehlerhafte Hyperlinks - von Beverly am 06.11.2014 11:47:00
  • AW: Fehlerhafte Hyperlinks - von Gregor am 06.11.2014 12:38:46
    • AW: Fehlerhafte Hyperlinks - von Beverly am 06.11.2014 16:58:31
      • AW: Fehlerhafte Hyperlinks - von Gregor am 07.11.2014 07:38:38
        • AW: Fehlerhafte Hyperlinks - von Beverly am 07.11.2014 14:51:08

Betrifft: Fehlerhafte Hyperlinks von: Gregor
Geschrieben am: 06.11.2014 11:00:17

Hallo zusammen

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

Betrifft: AW: Fehlerhafte Hyperlinks von: Beverly
Geschrieben am: 06.11.2014 11:47:00

Hi Gregor,

vielleicht eine Möglichkeit:

Sub Fehlerhafte_Hyperlinks_finden()
    Dim Dummy As String
    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 = Dummy & vbLf & DateiName
        End If
    Next
    If Dummy <> "" Then MsgBox "Folgende Links sind fehlerhaft:" & vbLf & Dummy
End Sub

---

Betrifft: AW: Fehlerhafte Hyperlinks von: Gregor
Geschrieben am: 06.11.2014 12:38:46

Hallo Karin

Vielen Dank, ich habe deinen abgeänderten Code getestet. Leider erscheint beim Befehl
If Dir(DateiName) = "" Then
wie zuvor die ursprüngliche Fehlermeldung 52.

Gruss
Gregor

Betrifft: AW: Fehlerhafte Hyperlinks von: Beverly
Geschrieben am: 06.11.2014 16:58:31

Hi Gregor,

das kann ich leider nicht nachvollziehen - ich habe den Code jetzt extra mit Excel2010 getestet.

---

Betrifft: AW: Fehlerhafte Hyperlinks von: Gregor
Geschrieben am: 07.11.2014 07:38:38

Hallo Karin

Danke für deinen Test. Die Fehlermeldung taucht schon beim ersten Hyperlink mit folgender Verknüpfung auf:
DateiName = "http://map.search.ch/537875,152041"

Kannst du daraus evt. etwas schliessen?

Gruss
Gregor

Betrifft: AW: Fehlerhafte Hyperlinks von: Beverly
Geschrieben am: 07.11.2014 14:51:08

Hi Gregor,

dein Hyperlink führt auf eine Webseite - der Code ist dafür nicht ausgelegt sondern gilt für Hyperlinks zu Dateien auf dem Rechner, deshalb der Fehler.
Da kann ich dir leider nicht weiterhelfen - ich stelle die Frage deshalb auf offen.

---

Beiträge aus den Excel-Beispielen zum Thema "Fehlerhafte Hyperlinks"