Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
812to816
812to816
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink

Forumthread: Hyperlink

Hyperlink
01.11.2006 14:27:11
michael
Hallo
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
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink
01.11.2006 14:35:43
ramses
Hallo
gar nicht, weil auf einem Chart keine Referenzzelle exisitert.
Mach es wie David Copperfield.
Schreib den Namen des Chart in die Zelle
Formatiere die Zelle mit Blauer Schrift
Rechte Maustaste auf den Tabellenreiter
Code Anzeigen
und diesen Code dort reinkopieren

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "A10" Then
Sheets("Chart1").Select
End If
End Sub

"A10" ist der Name der Zelle wo der "Hyperlink" stehen soll
Gruss Rainer
Anzeige
AW: Hyperlink
01.11.2006 19:30:28
Michael
vielen dank
ich probiers aus
AW: Hyperlink
01.11.2006 21:07:39
Michael
wie muss der code heißen, wenn der chart ausgeblendet ist?
danke
AW: Hyperlink
01.11.2006 21:13:39
ramses
Hallo
Kennst du den Makrorekorder ? ;-)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "A10" Then
With Sheets("Chart1")
.Visible = True
.Select
end with
End If
End Sub

Gruss Rainer
Anzeige
AW: Hyperlink
02.11.2006 06:42:58
Michael
danke
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige