Wie folgt man einem Hyperlink zu einem ausgeblendeten Blatt in Excel?

Wenn Sie eine Arbeitsmappe mit mehreren Arbeitsblättern haben und Hyperlinks auf einem Hauptblatt verwenden möchten, um zu ausgeblendeten Blättern zu navigieren, werden Sie feststellen, dass die Hyperlinks inaktiv werden, sobald die Blätter ausgeblendet sind. Um dies zu beheben, können Sie VBA-Code verwenden, um sicherzustellen, dass durch Klicken auf einen Hyperlink das entsprechende ausgeblendete Blatt automatisch geöffnet wird. Dieser Artikel bietet Schritt-für-Schritt-Anweisungen, um diese Funktionalität zu erreichen, und bietet sogar die Option, das Blatt nach der Rückkehr zum Hauptblatt erneut auszublenden.

Hyperlink folgen, um ausgeblendetes Blatt mit VBA-Code zu öffnen

Hyperlink folgen, um ausgeblendetes Blatt zu öffnen und es dann mit VBA-Code erneut auszublenden

Hyperlink folgen, um ausgeblendetes Blatt mit VBA-Code zu öffnen

Der folgende VBA-Code kann Ihnen helfen, das ausgeblendete Arbeitsblatt zu öffnen, wenn Sie auf den entsprechenden Hyperlink klicken. Bitte gehen Sie wie folgt vor:

1. Klicken Sie mit der rechten Maustaste auf die Registerkarte des Blatts, von dem aus Sie dem Hyperlink zum ausgeblendeten Blatt folgen möchten, und wählen Sie dann Ansicht Code aus dem Kontextmenü. Im sich öffnenden Fenster Microsoft Visual Basic for Applications kopieren und fügen Sie den folgenden Code in das leere Modul ein:

VBA-Code: Hyperlink folgen, um ausgeblendetes Blatt zu öffnen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    On Error Resume Next
    If Target.Column = 1 Then
        Sheets(Target.Value).Visible = xlSheetVisible
        Sheets(Target.Value).Select
    End If
    Application.ScreenUpdating = True
End Sub

Hinweis: In dem obigen Code gibt die Zahl 1 in diesem If Target.Column = 1 Then-Skript die Spaltennummer an, die die Hyperlinks enthält. Ändern Sie sie bei Bedarf.

2. Speichern und schließen Sie dann dieses Codefenster. Jetzt wird beim Klicken auf einen Hyperlink, der auf ein bestimmtes ausgeblendetes Blatt verweist, das Blatt sofort geöffnet.

Hyperlink folgen, um ausgeblendetes Blatt zu öffnen und es dann mit VBA-Code erneut auszublenden

Manchmal müssen Sie dem Hyperlink folgen, um das ausgeblendete Blatt zu öffnen, und wenn Sie zum Hauptblatt zurückkehren, möchten Sie, dass das geöffnete Blatt erneut ausgeblendet wird. Der folgende VBA-Code kann Ihnen dabei helfen:

1. Klicken Sie mit der rechten Maustaste auf die Registerkarte des Blatts, von dem aus Sie dem Hyperlink zum ausgeblendeten Blatt folgen möchten, und wählen Sie dann Ansicht Code aus dem Kontextmenü. Im sich öffnenden Fenster Microsoft Visual Basic for Applications kopieren und fügen Sie den folgenden Code in das leere Modul ein:

VBA-Code: Hyperlink folgen, um ausgeblendetes Blatt zu öffnen und es beim Zurückgehen erneut auszublenden:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   'Updateby Extendoffice
    Application.ScreenUpdating = False
    Dim strLinkSheet As String
    If InStr(Target.Parent, "!") > 0 Then
        strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
    Else
        strLinkSheet = Target.Parent
    End If
    Sheets(strLinkSheet).Visible = True
    Sheets(strLinkSheet).Select
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Activate()
    On Error Resume Next
    Sheets(ActiveCell.Value2).Visible = False
End Sub

2. Speichern und schließen Sie dann das Codefenster. Wenn Sie auf den Hyperlink klicken, wird das verknüpfte ausgeblendete Blatt sofort geöffnet. Wenn Sie jedoch zum Hauptblatt zurückkehren, das die Hyperlinks enthält, wird das geöffnete Blatt automatisch wieder ausgeblendet.

Hinweis: Diese Codes gelten nur für Blattnamen, die mit dem Hyperlink-Text übereinstimmen.

Demo: Hyperlink folgen, um ausgeblendetes Blatt mit VBA-Code zu öffnen