Wie folgt man einem Hyperlink zu einem ausgeblendeten Arbeitsblatt in Excel?
Wenn Sie eine Arbeitsmappe mit mehreren Arbeitsblättern nutzen und über Hyperlinks auf einem Master-Arbeitsblatt zu ausgeblendeten Blättern navigieren möchten, werden Sie feststellen, dass diese Hyperlinks nicht mehr funktionieren, sobald die Zielblätter ausgeblendet sind. Mit einem einfachen VBA-Code lässt sich dieses Problem elegant lösen: Beim Klicken auf einen Hyperlink wird das zugehörige ausgeblendete Arbeitsblatt automatisch eingeblendet. Dieser Artikel liefert Ihnen Schritt-für-Schritt-Anleitungen, um diese Funktion umzusetzen – inklusive der praktischen Option, das Blatt wieder auszublenden, sobald Sie zum Master-Arbeitsblatt zurückkehren.
Hyperlink folgen, um ausgeblendetes Arbeitsblatt mit VBA-Code zu öffnen
Hyperlink folgen, um ausgeblendetes Arbeitsblatt zu öffnen und es danach erneut auszublenden – mit VBA-Code
Hyperlink folgen, um ausgeblendetes Arbeitsblatt mit VBA-Code zu öffnen
Der folgende VBA-Code ermöglicht es Ihnen, das ausgeblendete Arbeitsblatt zu öffnen, sobald Sie auf den zugehörigen Hyperlink klicken. Gehen Sie dazu wie folgt vor:
1. Klicken Sie mit der rechten Maustaste auf die Registerkarte des Arbeitsblatts, für das Sie dem Hyperlink zu einem ausgeblendeten Blatt folgen möchten, und wählen Sie im Kontextmenü Code anzeigen aus. Fügen Sie den folgenden Code anschließend in das leere Modul des geöffneten Fensters Microsoft Visual Basic for Applications ein:
VBA-Code: Hyperlink folgen, um ausgeblendetes Arbeitsblatt 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: Im obigen Code gibt die Zahl 1 in der Zeile If Target.Column = 1 Then die Spaltennummer derjenigen Spalte an, die die Hyperlinks enthält. Passen Sie diesen Wert bitte entsprechend Ihren Anforderungen an.
2. Schließen Sie anschließend dieses Code-Fenster. Sobald Sie nun auf einen Hyperlink klicken, der mit einem bestimmten ausgeblendeten Arbeitsblatt verknüpft ist, wird das Blatt sofort geöffnet.
Hyperlink folgen, um ausgeblendetes Arbeitsblatt zu öffnen und es danach erneut auszublenden – mit VBA-Code
Manchmal müssen Sie einem Hyperlink folgen, um ein ausgeblendetes Arbeitsblatt zu öffnen – und möchten, dass dieses Blatt automatisch wieder ausgeblendet wird, sobald Sie zum Master-Arbeitsblatt zurückkehren. Der folgende VBA-Code unterstützt Sie dabei:
1. Klicken Sie mit der rechten Maustaste auf die Registerkarte des Arbeitsblatts, für das Sie dem Hyperlink zu einem ausgeblendeten Blatt folgen möchten, und wählen Sie anschließend Code anzeigenaus dem Kontextmenü. Fügen Sie im daraufhin geöffneten Fenster Microsoft Visual Basic for Applicationsden folgenden Code in das leere Modul ein:
VBA-Code: Hyperlink folgen, um ausgeblendetes Arbeitsblatt zu öffnen und es beim Zurückkehren 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 anschließend das Code-Fenster. Sobald Sie nun auf den Hyperlink klicken, wird das verknüpfte, ausgeblendete Arbeitsblatt sofort geöffnet. Wechseln Sie jedoch zurück zum Master-Arbeitsblatt mit den Hyperlinks, wird das zuvor geöffnete Blatt automatisch wieder ausgeblendet.
Hinweis: Diese Codes gelten ausschließlich für Arbeitsblattnamen, die exakt mit dem Hyperlink-Text übereinstimmen.
Demo: Hyperlink folgen, um ausgeblendetes Arbeitsblatt mit VBA-Code zu öffnen
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins