ich habe ein Blatt mit einer längeren Tabelle und habe daher am rechten Rand verschiedene Hyperlinks per Formel eingefügt, mit denen man innerhalb der Tabelle jeweils zu einem bestimmten Bereich nach oben oder unten springen kann.
Dabei hätte ich gerne, dass die jeweilige Ziel-Adresse der Hyperlinks nach dem Anklicken der Hyperlinks immer als erste Zeile am Bildschirm zu sehen ist, d.h. es soll entsprechend gescrollt werden.
Beispiel:
Ziel-Adresse = BL200 ; dann soll die Zeile 200 als erste am Bildschirm (von oben) zu sehen sein.
Problem:
Mein Ansatz funktioniert bei Hyperlinks, die nach oben (also z.B. von Zeile 200 zu Zeile 100) springen.
Bei Hyperlinks, die nach unten (also z.B. von Zeile 100 zu Zeile 200) springen, erscheint die Ziel-Adresse jedoch immer am unteren statt am oberen Bildschirmrand.
Ich vermute, ich brauche hier ein If statement im VBA-Code ?
Hyperlink-Formel (Beispiele):
- Link nach oben:
=HYPERLINK("#Card!BK100","Up")
- Link nach unten:
=HYPERLINK("#Card!BL200","Down")
VBA (im Blattcode):
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveWindow.ScrollRow = ActiveCell.Row
End Sub
Kann mir jemand damit weiterhelfen ? Vielen Dank im Voraus,
Markus