In Zelle A4 (Zeile 4) steht eine 1 in der Zelle ist ein Hyperling der auf A11 verweist.
Nun wollte ich es so hinbekommen,wenn ich auf zelle A11 bin müssten die Zeilen 1 bis 10 nach ober scrollen. So das die Zelle A11 auf A1 steht.
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Application.Goto Reference:=ActiveCell, Scroll:=True
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim i As Long
i = IIf(ActiveCell.Row
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Application.Goto Reference:=ActiveCell, Scroll:=True
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim i As Long
i = IIf(ActiveCell.Row
Der erste klappt ja der geht die Reihe nach unten, aber so wie erjetzt ist klappt es nicht.Der müsste nach oben gehen.
Option Explicit
Dim wechsel As Boolean
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If ActiveCell.Row = 123 Then wechsel = True
If ActiveCell.Value = 2 And ActiveCell.Row = 11 Then wechsel = False
Select Case wechsel
Case "falsch"
Application.Goto Reference:=Cells(ActiveCell.Row, 1), Scroll:=True
Case "wahr"
If (ActiveCell.Row - 14) >= 4 Then Application.Goto Reference:=Cells(ActiveCell.Row - _
14, 1), Scroll:=True
Case Else
End Select
End Sub