https://www.herber.de/bbs/user/140549.xlsx
Also aktuelles Problem ist, dass das Ergebnis des Hyperlinks immer unten im Fenster angezeigt wird und nicht an oberster Stelle.
danke
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Hyperlinks.Count = 1 Then
ActiveWindow.SmallScroll Down:=21
Else
End If
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Application.Goto Reference:=Range(Target.SubAddress), Scroll:=True
End Sub
cu