Hyperlinks folgen
13.04.2009 16:25:43
gisela
ich möchte dass allen auf der Seite befindlichen Hyperlinks gefolgt wird.
Mit folgendem Code wird dem ersten Hyperlink gefolgt.
Leider reichen meine Kenntnisse nicht dafür aus, dass auch den anderen Hyperlinks gefolgt wird.
Sub FolgenHyperlink()
Dim hypLink As Hyperlink
Dim blnFound As Boolean
For Each hypLink In ActiveSheet.Hyperlinks
If InStr(hypLink.Name, "http") 0 Then
blnFound = True
Exit For
End If
Next
If blnFound Then hypLink.Follow NewWindow:=True
End Sub
Kann mir bitte jemand helfen?
Vielen Dank und liebe Grüße
Anzeige