Wie folge ich einem Hyperlink zu einem versteckten Blatt in Excel?
Ich habe beispielsweise eine Arbeitsmappe, die mehrere Arbeitsblätter enthält, das erste Hauptblatt enthält Hyperlinks zu anderen Blättern, und jetzt verstecke ich alle Blätter außer dem ersten. In diesem Fall sind die Hyperlinks, die auf ausgeblendete Blätter verweisen, nicht verfügbar. Aber wie können Sie dafür sorgen, dass diese Hyperlinks erfolgreich funktionieren? Wenn Sie auf einen Hyperlink klicken, wird das verknüpfte ausgeblendete Blatt sofort wie folgt geöffnet:
Folgen Sie dem Hyperlink, um ein verstecktes Blatt mit VBA-Code zu öffnen
Folgen Sie dem Hyperlink, um das ausgeblendete Blatt zu öffnen, und verstecken Sie es dann erneut mit VBA-Code
Folgen Sie dem Hyperlink, um ein verstecktes Blatt mit VBA-Code zu öffnen
Der folgende VBA-Code kann Ihnen helfen, das versteckte Arbeitsblatt zu öffnen, wenn Sie auf den entsprechenden Hyperlink klicken. Gehen Sie dazu folgendermaßen vor:
1. Klicken Sie mit der rechten Maustaste auf die Registerkarte "Blatt", der Sie dem Hyperlink zum ausgeblendeten Blatt folgen möchten, und wählen Sie dann Code anzeigen aus dem Kontextmenü in der herausgesprungenen Microsoft Visual Basic für Applikationen Bitte kopieren Sie den folgenden Code und fügen Sie ihn in das leere Modul ein:
VBA-Code: Folgen Sie dem Hyperlink, um das versteckte 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
Note: Im obigen Code die Nummer 1 in diesem Wenn Target.Column = 1 Dann Das Skript gibt die Spaltennummer an, die die Hyperlinks enthält. Bitte ändern Sie sie nach Bedarf.
2. Speichern und schließen Sie dieses Codefenster. Wenn Sie jetzt auf den Hyperlink klicken, der auf das jeweilige ausgeblendete Blatt verweist, wird das ausgeblendete Blatt sofort geöffnet.
Folgen Sie dem Hyperlink, um das ausgeblendete Blatt zu öffnen, und verstecken Sie es dann erneut mit VBA-Code
Manchmal müssen Sie dem Hyperlink folgen, um das ausgeblendete Blatt zu öffnen. Wenn Sie zum Hauptblatt zurückkehren, möchten Sie, dass das geöffnete Blatt wieder ausgeblendet wird. Der folgende VBA-Code kann Ihnen einen Gefallen tun:
1. Klicken Sie mit der rechten Maustaste auf die Registerkarte "Blatt", der Sie dem Hyperlink zum ausgeblendeten Blatt folgen möchten, und wählen Sie dann Code anzeigen aus dem Kontextmenü in der herausgesprungenen Microsoft Visual Basic für Applikationen Bitte kopieren Sie den folgenden Code und fügen Sie ihn in das leere Modul ein:
VBA-Code: Folgen Sie dem Hyperlink, um das versteckte Blatt zu öffnen, wenn Sie es wieder ausblenden:
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 Sie dann die Anzeige und schließen Sie 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.
Note: Diese Codes werden nur auf die Blattnamen angewendet, die Ihrem Hyperlink-Text entsprechen.
Demo: Folgen Sie dem Hyperlink, um ein verstecktes Blatt mit VBA-Code zu öffnen
Kutools for Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie es innerhalb von 30 Tagen ohne Einschränkung testen. Jetzt herunterladen und kostenlos testen!
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!