ich möchte, dass mein Hyperlink auf Zelle A100 diese Zelle nach der Aktivierung oben links anzeigt.
Bei mir scrollt er das Tabellenblatt so, dass diese Zelle dann unten links angezeigt wird.
Gruß Björn
' **********************************************************************
' Modul: Tabelle2 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
On Error Resume Next
Application.Goto Sheets(Split(Target.SubAddress, "!")(0)).Range(Split(Target.SubAddress, "!")(1)), True
Err.Clear
On Error GoTo 0
End Sub
Sub followLink()
Dim objShp As Shape
Set objShp = ActiveSheet.Shapes(Application.Caller)
With objShp
Application.Goto Range(.AlternativeText), True
End With
End Sub
Sub followLink()
Dim objShp As Shape
Dim objSh As Worksheet
Dim rng As Range
Set objShp = ActiveSheet.Shapes(Application.Caller)
With objShp
If InStr(1, .AlternativeText, "!") > 0 Then
Set objSh = Worksheets(Split(.AlternativeText, "!")(0))
Set rng = objSh.Range(Split(.AlternativeText, "!")(1))
If objSh.ProtectContents Then
objSh.Unprotect 'ggf. PW angeben!
Application.Goto rng, True
objSh.Protect 'ggf. PW angeben!
Else
Application.Goto rng, True
End If
Else
Application.Goto Range(.AlternativeText), True
End If
End With
Set objSh = Nothing
Set rgn = Nothing
Set objShp = Nothing
End Sub
Die Datei https://www.herber.de/bbs/user/77054.xlsm wurde aus Datenschutzgründen gelöscht