Hoe maakt u een inhoudsopgave met hyperlinks naar alle werkbladtabnamen in Excel?
Een Excel-werkboek wordt behoorlijk groot naarmate er steeds meer werkbladen worden aangemaakt. Hoe meer werkbladen er zijn, hoe moeilijker het wordt om overzicht te houden. Daarom hebt u een inhoudsopgave nodig om snel tussen werkbladen te navigeren in Excel. In dit artikel worden methoden beschreven om dit te realiseren.
Maak een inhoudsopgave met VBA-code
Maak eenvoudig een inhoudsopgave met Kutools voor Excel
Maak een inhoudsopgave met VBA-code
De volgende VBA-code helpt u een inhoudsopgave met hyperlinks naar alle werkbladen in Excel te maken. Volg deze stappen.
1. Druk op de toetsencombinatie Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module en plak vervolgens de onderstaande VBA-code in het codovenster.
VBA-code: Maak een inhoudsopgave voor alle werkbladen
Sub CreateTableofcontents()
'updateby Extendoffice 20180413
Dim xAlerts As Boolean
Dim I As Long
Dim xShtIndex As Worksheet
Dim xSht As Variant
xAlerts = Application.DisplayAlerts
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Table of contents").Delete
On Error GoTo 0
Set xShtIndex = Sheets.Add(Sheets(1))
xShtIndex.Name = "Table of contents"
I = 1
Cells(1, 1).Value = "Table of contents"
For Each xSht In ThisWorkbook.Sheets
If xSht.Name <> "Table of contents" Then
I = I + 1
xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
End If
Next
Application.DisplayAlerts = xAlerts
End Sub 3. Druk op de toets F5 of klik op de knop Uitvoeren om de code uit te voeren.
Er wordt dan een werkblad „Inhoudsopgave” aangemaakt vóór alle andere werkbladen, met daarin de namen van alle werkbladen vermeld. U navigeert eenvoudig naar elk werkblad door op de betreffende bladnaam in de inhoudsopgave te klikken. Zie onderstaande afbeelding:

Maak eenvoudig een inhoudsopgave met Kutools voor Excel
De functie Maak koppeltabel van Kutools voor Excel helpt u snel een inhoudsopgave te maken in het huidige werkboek. Volg deze stappen.
1. Klik in de werkmap waarin u een inhoudsopgave wilt maken op KUTOOLS PLUS > Werkblad > Maak koppeltabel. Zie onderstaande afbeelding:

2. Voer in het dialoogvenster Maak koppeltabel de volgende stappen uit:

Er wordt vervolgens een inhoudsopgavewerkblad aangemaakt, zoals hieronder weergegeven. Navigeer eenvoudig naar elk werkblad door op de bladnaam in de inhoudsopgave te klikken.

Als u in de sectie Indexstijlen kiezen de optie ‘Maak knoppen en macro’s’ selecteert, krijgt u een inhoudsopgave zoals hieronder weergegeven.

Wilt u een gratis proefversie (30 dagen) van deze tool gebruiken?Klik dan hier om deze te downloaden en volg daarna bovenstaande stappen om de bewerking toe te passen.
Gerelateerde artikelen:
- Hoe verwijst u naar de tabnaam in een cel in Excel?
- Hoe koppelt u de celwaarde aan de naam van het werkbladtabblad, of vice versa, in Excel?
- Hoe opent u een specifiek werkblad op basis van de geselecteerde waarde in een keuzelijst (Combo Box) in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins