Hyperlink
01.11.2006 14:27:11
michael
wie kann ich per Hyperlink ein sheet in der arbeitsmappe anspringen, auf dem sich ein Pivotchart befindet. Solche Seiten erscheinen nicht bei der Seitenauswahl beim Linkeinfügen.
Ich verwende folgendes Makro:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim strAdr As String
Dim strSht As String
strAdr = Target.SubAddress
strSht = Left(strAdr, Len(strAdr) - InStr(1, StrReverse(strAdr), "!"))
Sheets(strSht).Visible = xlSheetVisible
Sheets(strSht).Activate
End Sub
Danke für die ANtwort