Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1068to1072
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Hyperlinks folgen
13.04.2009 16:25:43
gisela
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlinks folgen
13.04.2009 17:23:41
Nepumuk
Hallo Gisela,
versuch es mal so:
Sub FolgenHyperlink()
    Dim hypLink As Hyperlink
    For Each hypLink In ActiveSheet.Hyperlinks
        If InStr(hypLink.Address, "http") <> 0 Then _
            hypLink.Follow NewWindow:=True
    Next
End Sub

Gruß
Nepumuk
Anzeige
AW: Hyperlinks folgen
13.04.2009 18:17:02
gisela
Hallo Nepumuk,
vielen Dank - funktioniert.
Liebe Grüße
Gisela

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige