Excel vba hyperlink auf Zelle folgen

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

ich hoffe, ihr könnt mir einen Tipp geben, da ich ein wenig ratlos bin.

Ausgangspunkt:
In einer Tabelle habe ich in der Spalte „i“ in einigen Zellen Hyperlinks auf Zellen der benachbarten Spalte „h“. Klicke ich also auf eine Zelle der Spalte „i“ wird mir die verlinkte Zelle in der Spalte „h“ markiert.

Ziel:
Ich muss per Makro die Zellen der Spalte „i“ durchlaufen und die Möglichkeit haben zu prüfen, ob die verlinkte Zelle in der selben Zeile liegt oder nicht.

Problem:
Zwar fand ich per Makro aufnehmen folgendes heraus

Range("I5").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

nur weiß ich nicht, was mir das bringt, denn die verlinkte Zelle wird dadurch nicht selektiert.

Also die Frage an euch: Wie kann ich per Excel Makro herausfinden, ob die verlinkte Zelle in der selben Zeile liegt?

Gruß

Murphy

#2

In einer Tabelle habe ich in der Spalte „i“ in einigen Zellen
Hyperlinks auf Zellen der benachbarten Spalte „h“. Klicke ich
also auf eine Zelle der Spalte „i“ wird mir die verlinkte
Zelle in der Spalte „h“ markiert.

Ziel:
Ich muss per Makro die Zellen der Spalte „i“ durchlaufen und
die Möglichkeit haben zu prüfen, ob die verlinkte Zelle in der
selben Zeile liegt oder nicht.

Hallo Murphy,

vielleicht so:

Sub HL()
Dim Zei As Long, S
For Zei = 1 To Cells(Rows.Count, 9).End(xlUp).Row
 If Cells(Zei, 9).Hyperlinks.Count Then
 S = Split(Cells(Zei, 9).Hyperlinks(1).SubAddress, "!")
 If Zei = Range(S(1)).Row Then
 MsgBox Cells(Zei, 9).Address & " ist verlinkt auf " & S(1)
 End If
 End If
Next Zei
End Sub

Gruß
Reinhard

#3

Hallo Reinhard,

du bist genial! Auf SubAddress wäre ich nie gekommen. Vielen Dank!

Gruß

Murphy