Office: (Office 365) Per Hyperlink ausgeblendetes Blatt einblenden

Hola ins Forum,
ich bräuchte mal wieder eure Hilfe. Ich habe ein Tabellenblatt das mir als Register dient und wo Hyperlinks eingefügt sind um auf das dazugehörige Blatt zu springen. Diese Blätter habe ich einfach über den Registerreiter der Tabelle mit Ausblenden ausgeblendet. Also ganz einfach ohne VBA. Jetzt fehlt mir der Code um diese wieder einzublenden wenn auf den Hyperlink im Tabellenblatt Register geklickt wird. Die Hyperlinks sind in Spalte B ab Zeile B2.Ich hoffe ich habe es verständlich erklärt.
Saludos Nanu

 

Hi,

ich würde das ohne Hyperlinks lösen - stattdessen z.B. mittels Doppelklick.
Schreibe dazu die Blattnamen untereinander - z.B. in Spalte A ab A2.
Dazu diesen Code in das Codemodul des Tabellenblattes:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo ERR_HANDLER
With Target
    If .Column = 1 And .Text <> "" Then
        If Not Worksheets(.Text).Visible Then Worksheets(.Text).Visible = True
        Cancel = True
        Worksheets(.Text).Activate
    End If
End With
ERR_HANDLER:
End Sub

 

Hola Boris,
Danke für den Tipp. Werde es ausprobieren und dir eine Rückmeldung geben.
Gracias Nanu

 

Hi,

das kannst du mit folgendem Code im Codemodul des Tabellenblattes lösen:

Code:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim strZiel As String
    strZiel = Split(Target.SubAddress, "!")(0)
    Worksheets(strZiel).Visible = True
    Worksheets(strZiel).Activate
End Sub

---

 

Hola Karin,
werde ich auch ausprobieren. Muchas gracias
Saludos Nanu

 

Moin Nanu,

Boris' Vorschlag gefällt mir besser:
Hyperlinks sind eben Links, die auf Ziele deuten. Einziger Vorteil: Hyperlinks sind optisch erkennbar.
DblClk-Zellen liefern einen universell nutzbaren Event, sind aber nur sichtbar, wenn man sie z.B. farblich markiert.

Liebe Grüße

ps.: He resucitado

 

Hola,
beides funktioniert einwandfrei. Muchas gracias an Boris und Katrin.
Saludos Nanu