Mittels folgendem Code (den ich netterweise hier im Forums-Archiv fand) kann ich auf einem Arbeisblatt alle Hyperlinks auf deren Existenz prüfen:
===========================================================================
Option Explicit
Private Const FIFC = &H1
Private Declare
Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal _
lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Sub Hyperlink_testen()
Dim objHL As Hyperlink
For Each objHL In ActiveSheet.Hyperlinks
If InternetCheckConnection(objHL.Address, FIFC, 0&) = 0 Then
MsgBox "Fehlerhafte URL in " & objHL.Range.Address(0, 0) & Space(10), 64, "Weise hin..."
objHL.Range.Select
Else
MsgBox "Link ok in Zelle " & objHL.Range.Address(0, 0) & Space(10), 64, "Gebe bekannt..."
End If
Next
End Sub
=========================================================================
Nun möchte ich den Code aber so abändern:
- Er solle mir in einer grossen Arbeitsmappe (da gibt es unzählige Tabellenblätter) alle vorhandenen Hyperlinks prüfen ob die noch zu einem Ziel führen.
die ganze Prüfung soll dann am besten Protokolliert werden (in eine Textdatei z.B. - oder in ein separates Tabellenblatt ?)
d.h. es sollte angegeben werden, auf welchem Tabellenblatt der Hyperlink steht, wie er heisst, und ob er noch ok ist oder nicht.
Leider aber hab ich echt keine Ahnung wie ich das nun angehen müsste.
Freue mich schon mal über Eure Tips und Vorschläge !
Herzlichen Dank im voraus !!!