Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie folgt man dem Hyperlink zum versteckten Blatt in Excel?

Zum Beispiel habe ich eine Arbeitsmappe, die mehrere Arbeitsblätter enthält, das erste Hauptblatt hat Hyperlinks zu anderen Blättern, und jetzt verberge ich alle Blätter mit Ausnahme der ersten. In diesem Fall sind die Hyperlinks, die mit ausgeblendeten Tabellen verknüpft sind, nicht verfügbar. Aber wie können Sie diese Hyperlinks erfolgreich arbeiten lassen? Wenn Sie auf einen Hyperlink klicken, wird das verknüpfte versteckte Blatt sofort geöffnet, wie im folgenden Screenshot gezeigt:

doc-Hyperlink zum ausgeblendeten Blatt 1

Folgen Sie dem Hyperlink, um das versteckte Blatt mit dem VBA-Code zu öffnen

Folgen Sie dem Hyperlink, um das ausgeblendete Blatt zu öffnen, und blenden Sie es erneut mit dem VBA-Code aus


Alle Arbeitsblattnamen auflisten und auf jedes Blatt verlinken:

Mit  Kutools for Excel's Erstellen Sie eine Liste von Blattnamen Mit diesem Dienstprogramm können Sie alle Arbeitsblattnamen in einem neuen Arbeitsblatt schnell mit Hyperlinks oder Makroschaltflächen auflisten.

Arbeitsblattnamen mit Hyperlinks Arbeitsblattnamen mit Makro-Schaltflächen
doc-list-Arbeitsblatt-namen2  2 doc-list-Arbeitsblatt-namen2  2 doc-list-Arbeitsblatt-namen2

Folgen Sie dem Hyperlink, um das versteckte Blatt mit dem VBA-Code zu öffnen


Der folgende VBA-Code kann Ihnen beim Öffnen des ausgeblendeten Arbeitsblatts helfen, wenn Sie auf den entsprechenden Hyperlink klicken:

1. Klicken Sie mit der rechten Maustaste auf das Blattregister, dem Sie den Hyperlink zu ausgeblendetem Blatt folgen möchten, und wählen Sie dann Code anzeigen aus dem Kontextmenü, in dem Pop-out Microsoft Visual Basic für Applikationen Fenster, bitte kopieren und fügen Sie den folgenden Code 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 20161109
    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

doc-Hyperlink zum ausgeblendeten Blatt 2

Text: Im obigen Code die Nummer 1 in diesem Wenn Target.Column = 1 Dann script zeigt die Spaltennummer an, die die Hyperlinks enthält, bitte ändern Sie sie nach Bedarf.

2. Speichern und schließen Sie dieses Codefenster. Wenn Sie nun auf den Hyperlink klicken, der mit dem bestimmten ausgeblendeten Blatt verknüpft ist, wird das ausgeblendete Blatt sofort geöffnet.


Folgen Sie dem Hyperlink, um das ausgeblendete Blatt zu öffnen, und blenden Sie es erneut mit dem VBA-Code aus

Manchmal müssen Sie dem Hyperlink folgen, um das ausgeblendete Blatt zu öffnen, und wenn Sie das Hauptblatt zurückgehen, 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 das Blattregister, dem Sie den Hyperlink zu ausgeblendetem Blatt folgen möchten, und wählen Sie dann Code anzeigen aus dem Kontextmenü, in dem Pop-out Microsoft Visual Basic für Applikationen Fenster, bitte kopieren und fügen Sie den folgenden Code 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 20161109
    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

doc-Hyperlink zum ausgeblendeten Blatt 3

2. Speichern Sie die Anzeige anschließend im Codefenster. Wenn Sie auf den Hyperlink klicken, wird das verknüpfte ausgeblendete Blatt sofort geöffnet. Wenn Sie jedoch das Hauptblatt mit den Hyperlinks zurückholen, wird das geöffnete Blatt automatisch wieder ausgeblendet.

Text: Diese Codes werden nur auf die Blattnamen angewendet, die Ihrem Hyperlink-Text entsprechen.


Demo: Folgen Sie dem Hyperlink, um das versteckte Blatt mit dem VBA-Code zu öffnen

Kutools for Excel: mit mehr als 200 praktischen Excel-Add-Ins, die Sie in 60-Tagen kostenlos ausprobieren können. Download und kostenlose Testversion Jetzt!


Kutools for Excel - Das beste Office-Produktivitäts-Tool Steigern Sie Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einlegen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (Bearbeiten Sie mühelos mehrere Textzeilen und Formeln); Layout lesen (Leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt der Zellen teilen; Kombinieren Sie doppelte Zeilen / Spalten... Doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie "Duplizieren" oder "Eindeutig" Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufallsauswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen auf mehrere Blätter; Bullets einfügen, Kontrollkästchen und mehr ...
  • Extract Text, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen; Erstellen und Drucken von Paging-Zwischensummen; Zwischen Zelleninhalt und Kommentaren konvertieren...
  • Superfilter (Speichere und wende Filterschemata auf andere Blätter an); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Arbeitsmappen und Arbeitsblätter kombinieren; Zusammenführen von Tabellen basierend auf Schlüsselspalten; Daten in mehrere Blätter aufteilen; Stapelkonvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Kostenlose 60-Testversion für alle Funktionen.
Registerkarte Tab 201905

Registerkarte "Office" Bringt die Benutzeroberfläche mit Registerkarten in Office und vereinfacht Ihre 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 täglich Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ken · 1 years ago
    I would like to use this code but only want it to apply to column A. I have other web address links in other cells which cause a problem when running this code.
  • To post as a guest, your comment is unpublished.
    DNKP · 2 years ago
    My hyperlink "text" is number only, and it doesn't work...
  • To post as a guest, your comment is unpublished.
    Brad Guiso · 2 years ago
    I'm using the code on two different sheets. It works for one of about 40 hyperlinks on one sheet and it opens two of about 10 hyperlinks one she second, the sheets on the second which do open do go back into hiding when I return to the sheet.

    The error I get when it will not open a sheet is Run-time error"9": script out of range and the code it points me to - Sheets(strLinkSheet).Visible = True

    Any ideas as to what change is needed make the code work on all of the sheets?

    Thank you in advance.
  • To post as a guest, your comment is unpublished.
    HelzBelz · 2 years ago
    I have used this code on two different sheets in my workbook, and in both cases it works great, except for the first hyperlink on each page. I get "Subscript out of range error" and the debugger points to the "Sheets(strLinkSheet).Visible = True" right after the "end if".

    Anyone else see this error? It is only on the first link on the page. (my hyperlinks are in column A, and start in row 2)
    • To post as a guest, your comment is unpublished.
      Bumi · 2 years ago
      [quote name="HelzBelz"]I have used this code on two different sheets in my workbook, and in both cases it works great, except for the first hyperlink on each page. I get "Subscript out of range error" and the debugger points to the "Sheets(strLinkSheet).Visible = True" right after the "end if".

      Anyone else see this error? It is only on the first link on the page. (my hyperlinks are in column A, and start in row 2)[/quote]
      Sheet names can't have space like "Sheet 1". I fixed my sheet names to "Sheet1" and the error stopped.
  • To post as a guest, your comment is unpublished.
    Regina Hardaway · 2 years ago
    I have a sheet that is hidden that contains a hyperlink. I would like to be able go to the hidden sheet and have it close when I go back to the original sheet. I used the code but it does not work.
  • To post as a guest, your comment is unpublished.
    Regina Hardaway · 2 years ago
    I am trying to hide a sheet that has a hyperlink. I would like to be able to click on the sheet go to the hyperlink sheet and then click back to the sheet and close the hidden sheet. I have tried your instructions but it does not work. Not sure what I am doing wrong.