Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe een hyperlink naar een verborgen blad in Excel te volgen?

Ik heb bijvoorbeeld een werkmap die meerdere werkbladen bevat, het eerste hoofdblad bevat hyperlinks naar andere bladen en nu verberg ik alle bladen behalve de eerste. In dit geval zijn de hyperlinks die naar verborgen bladen linken niet beschikbaar. Maar hoe kunt u deze hyperlinks met succes laten werken? Wanneer u op een hyperlink klikt, wordt het gekoppelde verborgen blad tegelijk geopend zoals in het volgende screenshot:

doc hyperlink naar verborgen blad 1

Volg de hyperlink om het verborgen blad met VBA-code te openen

Volg de hyperlink om het verborgen blad te openen en verberg het vervolgens opnieuw met VBA-code


Volg de hyperlink om het verborgen blad met VBA-code te openen

De volgende VBA-code kan u helpen om het verborgen werkblad te openen wanneer u op de relatieve hyperlink klikt, doe dit als volgt:

1. Klik met de rechtermuisknop op de bladtab die u de hyperlink naar het verborgen blad wilt volgen en kies vervolgens Bekijk code vanuit het contextmenu, in de pop-out Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in de lege module:

VBA-code: volg de hyperlink om het verborgen blad te openen:

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

doc hyperlink naar verborgen blad 2

Opmerking:: In de bovenstaande code, het nummer 1 In dit If Target.Column = 1 Then script geeft het kolomnummer aan dat de hyperlinks bevat, verander dit naar behoefte.

2. Sla vervolgens dit codevenster op en sluit het. Als u nu op de hyperlink klikt die naar het specifieke verborgen blad verwijst, wordt het verborgen blad onmiddellijk geopend.


Volg de hyperlink om het verborgen blad te openen en verberg het vervolgens opnieuw met VBA-code

Soms moet u de hyperlink volgen om het verborgen blad te openen, en wanneer u teruggaat naar het hoofdblad, wilt u dat het geopende blad weer wordt verborgen. De onderstaande VBA-code kan je een plezier doen:

1. Klik met de rechtermuisknop op de bladtab die u de hyperlink naar het verborgen blad wilt volgen en kies vervolgens Bekijk code vanuit het contextmenu, in de pop-out Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in de lege module:

VBA-code: volg de hyperlink om het verborgen blad te openen wanneer u teruggaat, verberg het opnieuw:

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

doc hyperlink naar verborgen blad 3

2. Bewaar advertentie sluit vervolgens het codevenster, wanneer u op de hyperlink klikt, wordt het gekoppelde verborgen blad onmiddellijk geopend, maar als u teruggaat naar het hoofdblad dat de hyperlinks bevat, wordt het geopende blad automatisch weer verborgen.

Opmerking:: Deze codes worden alleen toegepast op de bladnamen die overeenkomen met uw hyperlinktekst.


Demo: volg de hyperlink om een ​​verborgen blad met VBA-code te openen

Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
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.
    jonstr101 · 5 months ago
    Not sure if I will get a response to this one, but when I click the any of my hyperlinks I get a "reference isn't valid" error.

    Everything still works, I just need to click ok to continue.

    Does anyone have an idea what causes this error for this code?

    Thank you,
  • To post as a guest, your comment is unpublished.
    Hasan Kabir · 1 years ago
    I have created many wordbook and I want to index those in one page.
    N.B: My point is I want to hide all the sheets, the sheets will linked with setting picture to main page. By clicking the picture linked sheet will be shown and when I come back to the main sheet the un-hide sheet will be hidden again
  • To post as a guest, your comment is unpublished.
    Ken · 3 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 · 4 years ago
    My hyperlink "text" is number only, and it doesn't work...
  • To post as a guest, your comment is unpublished.
    Brad Guiso · 4 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 · 4 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 · 4 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 · 4 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 · 4 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.