Hoe maak je een inhoudsopgave voor alle tabbladnamen met hyperlinks in Excel?
Een Excel-werkboek wordt behoorlijk groot naarmate er steeds meer werkbladen aan worden toegevoegd. Hoe meer werkbladen er zijn, hoe moeilijker het wordt om een overzicht te behouden van de werkbladen. Daarom heb je een inhoudsopgave nodig om snel tussen de werkbladen in Excel te navigeren. Dit artikel laat je methoden zien om dit te bereiken.
Maak een inhoudsopgave aan met VBA-code
Maak eenvoudig een inhoudsopgave met Kutools voor Excel
Maak een inhoudsopgave aan met VBA-code
De volgende VBA-code kan helpen bij het maken van een inhoudsopgave voor alle werkbladen met hyperlinks in Excel. Volg de onderstaande stappen.
1. Druk op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module, en kopieer vervolgens de onderstaande VBA-code naar het Code-venster.
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 Sub3. Druk op de F5-toets of klik op de knop Uitvoeren om de code uit te voeren.
Er wordt dan een inhoudsopgave-werkblad gemaakt vóór alle werkbladen, met daarin alle werkbladnamen vermeld. Je kunt naar elk werkblad navigeren door op de naam van het werkblad in de inhoudsopgave te klikken. Zie screenshot:
Maak eenvoudig een inhoudsopgave met Kutools voor Excel
Het hulpprogramma Maak koppeltabel van Kutools voor Excel kan je helpen om snel een inhoudsopgave te maken in het huidige werkboek. Volg de onderstaande stappen.
1. Klik in het werkboek waarin je een inhoudsopgave wilt maken op Kutools Plus > Werkblad > Maak koppeltabel. Zie screenshot:
2. Voer in het dialoogvenster Maak koppeltabel de volgende handelingen uit:
Er wordt dan een inhoudsopgave-werkblad gemaakt zoals in de onderstaande afbeelding te zien is. Je kunt naar elk werkblad navigeren door op de naam van het werkblad in de inhoudsopgave te klikken.
Als je de optie Maak knoppen en macros selecteert in de sectie Selecteer Indexstijlen, krijg je een inhoudsopgave zoals in de onderstaande afbeelding te zien is.
Als u een gratis proefperiode (30-dag) van dit hulpprogramma wilt, klikt u op de link om het te downloaden, en gaat u vervolgens naar de bewerking toepassen volgens de hierboven beschreven stappen.
Gerelateerde artikelen:
- Hoe verwijst u naar een tabbladnaam in een cel in Excel?
- Hoe komt de celwaarde overeen met de naam van het tabblad of andersom in Excel?
- Hoe opent u een specifiek werkblad via de geselecteerde waarde van een Keuzelijst in Excel?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen