ich habe eine Excelfile mit ca. 90 Reitern. Vieles davon sind Grafiken.
Ich wollte es ein Inhlatsverzeichnis anlegen. Leider kann man Diagramme bekanntlich nicht verlinken.
Daher hatte ich den folgenden Code benutz.
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Name = "PivotDigramm" Then Sheets("1W Diagramm").Activate
End Sub
Der funktioniert auch soweit. solange ich nur ein Diagramm verlinke. Ich würde aber gerne alle Diagramme verlinken. Wie kann diesen Code erweitern ?
Dieser Weg ist ja der Falsche...
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Name = "PivotDigramm" Then Sheets("1W Diagramm").Activate
If Target.Name = "Digramm" Then Sheets("Diagramm").Activate
End Sub