Hyperlink zu Fremdmappe, Rücksprung Hyperlink
Soll da jetzt noch eingebaut werden, daß ggfs. die Zielmappe
geöffnet werden soll wenn geschlossen?Das wäre hübsch, weil wenn der User das erste mal von Mappe1
in Mappe2 springt, ist diese immer gesxchlossen.
Hallo Rolf,
ich irrte mich da, die Mappe wird doch schon von dem Hyperlink selbst geöffnet, (daher kommt z.B. auch die makroabfrage),
ERST dann wird der Code in der Hyperlink-Prozedur durchlaufen.
Also müßte mein Code so laufen wie er ist.
Und damit es keine Verwirrungen mit Codeversionen gibt, schmeiß alle weg, gültig ist nur der nachfolgende.
Beziehe dich bei evtl. Fehlern ausschließlich auf den.
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, Ziel As String
If Target.SubAddress = "" Then Exit Sub
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 & "'!"
Ziel = Ziel & Target.Parent.Address(0, 0)
.Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:= \_
Ziel, TextToDisplay:="Zurück", ScreenTip:=Ziel
End With
End Sub