AW: Hyperlink überprüfen
12.10.2009 13:25:21
JogyB
Hi.
Wenn die PDF-Dateien im lokalen Netzwerk oder auf dem Rechner selbst liegen, dann geht es so:
Sub testeHyperlinks()
Dim zeIle As Long
' Spalte die durchsucht wird, hier A
Const sCol = 1
Application.ScreenUpdating = False
' Nimmt das aktive Arbeitsblatt
With ActiveSheet
' Ab Zeile 2, in 1 steht wohl eine Überschrift
For zeIle = 2 To .Cells(Rows.Count, sCol).End(xlUp).Row
' Wenn Hyperlink da
If .Cells(zeIle, sCol).Hyperlinks.Count > 0 Then
' Schauen, ob es den gibt, OK oder Nicht OK eintragen
If Dir(.Cells(zeIle, sCol).Hyperlinks(1).Address) "" Then
.Cells(zeIle, sCol + 1).Value = "OK"
Else
.Cells(zeIle, sCol + 1).Value = "nicht OK"
End If
Else
' Kein Hyperlink, also Zelle daneben leeren
.Cells(zeIle, sCol + 1).ClearContents
End If
Next
End With
Application.ScreenUpdating = True
End Sub
Gruss, Jogy