Hyperlink zu ausgeblendetem Tabellenblatt
15.06.2016 12:41:24
Rookie
ich brauche wiedermal eure Hilfe:
Ich möchte dass meine Arbeitsmappe nur ein Tabellenblatt anzeigt, da diese sehr viele Tabellenblätter beinhaltet und sonst sehr unübersichtlich wird. Dafür habe eine Übersichtstabelle mit Hyperlinks zu den jeweiligen Tabellenblättern erstellt. Beim zurückspringen auf die Übersichtstabelle schließen sich alle anderen Tabellenblätter automatisch. Ich habe schon einen Code der auch sehr gut funktioniert. Mein Problem ist jetzt aber folgendes:
Der Hyperlink zu einem anderen Tabellenblatt funktioniert nur, wenn der Begriff der in einer Zeile steht als Hyperlink definiert wurde. Ich möchte aber gern ein Icon (.png-Datei) mit dem Hyperlink belegen. In diesem Fall funktioniert mein Code leider nicht.
Könnt Ihr mir einen Tip geben was iich tun muss damit die Hyperlinks auch auf den Icons funktionieren?
Hier der Code - steht im Tabellenblatt Übersicht:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim strAdr As String
Dim strSht As String
strAdr = Target.SubAddress
strSht = Replace(Left(strAdr, Len(strAdr) - InStr(1, StrReverse(strAdr), "!")), "'", "")
Sheets(strSht).Visible = xlSheetVisible
Sheets(strSht).Activate
End Sub
Private Sub Worksheet_Activate()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name "Übersicht" Then ws.Visible = xlSheetHidden
Next
End Sub
Vielen Dank für eure Unterstützung
Gruß
Stefan