Zelladresse bei follow_Hyperlink
Reinhard
wie ermittle ich den im code von Workbook_SheetFollowHyperlink(...)
die Zelladresse der Zelle wo der Hyperlink drinsteht?
D.h. im nachfolgenden Code will ich mit dem durch den Code entstandenen neuen Hyperlink auch in die Zelle zurückspringen, die anfangs den ersten Hyperlink aufrief und nicht festgelegt nach A1 wie hier:
Ziel = "'[" & ThisWorkbook.Name & "]" & Sh.Name & "'!A1"
Danke ^ Gruß
Reinhard
Option Explicit
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Dim strMappe As String, strTab As String, Adresse As String
Dim Ziel As String
Adresse = Replace(Target.SubAddress, "'", "")
If InStr(Adresse, "[") > 0 Then
strMappe = Split(Adresse, "[")(1)
strMappe = Left(strMappe, InStr(strMappe, "]") - 1)
strTab = Split(Adresse, "]")(1)
strTab = Left(strTab, InStr(strTab, "!") - 1)
Else
strMappe = ThisWorkbook.Name
strTab = Left(Adresse, InStr(Adresse, "!") - 1)
End If
With Workbooks(strMappe).Worksheets(strTab)
Ziel = "'[" & ThisWorkbook.Name & "]" & Sh.Name & "'!A1"
.Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:= _
Ziel, TextToDisplay:="Zurück", ScreenTip:=Ziel
End With
End Sub