Hoe maakt u een automatisch bijgewerkte inhoudsopgave voor al uw werkbladen?
Stel dat u een werkmap hebt met honderden werkbladen. Het navigeren naar een specifiek blad tussen al die bladen kan voor veel gebruikers lastig zijn. In zo’n situatie helpt een inhoudsopgave u snel en eenvoudig naar het gewenste blad te gaan. In deze handleiding wordt uitgelegd hoe u een inhoudsopgave voor alle bladen kunt maken die automatisch wordt bijgewerkt wanneer u bladen invoegt, verwijdert of hernoemt.
Gebruik een formule om automatisch een inhoudsopgave voor alle bladen te maken
Gebruik Kutools voor Excel om automatisch een inhoudsopgave voor alle bladen te maken
Gebruik VBA-code om automatisch een inhoudsopgave voor alle bladen te maken
Gebruik een formule om automatisch een inhoudsopgave voor alle bladen te maken
In Excel kunt u eenvoudig een inhoudsopgave maken door een celnaam te definiëren en deze in een formule te gebruiken. Volg hiervoor de onderstaande stappen:
1. Voeg een nieuw blad toe vóór alle andere bladen en geef het de gewenste naam voor uw inhoudsopgave.
2. Klik vervolgens op 'Formule' > 'Naam definiëren', zoals te zien is in de schermafbeelding:
3. Typ in het dialoogvenster „Nieuwe Naam” de naam „Sheetlist” in het vak „Naam” – u kunt deze naam naar eigen voorkeur aanpassen – en voer daarna de volgende formule in het tekstvak „Verwijst naar” in.
=GET.WORKBOOK(1)&T(NOW())
4. Klik daarna op „OK” om het dialoogvenster te sluiten.
5. Ga nu naar het nieuwe blad waarop u de inhoudsopgave wilt maken en typ de volgende formule in een lege cel:
=IFERROR(INDEX(MID(Sheetlist,FIND("]",Sheetlist)+1,255),ROWS($A$2:A2)),"")6. Sleep vervolgens de vulgreep omlaag totdat lege cellen verschijnen. Alle bladnamen (inclusief verborgen bladen) uit het huidige werkboek worden dan weergegeven, zoals op de schermafbeelding:
7. Vervolgens stelt u een hyperlink voor de inhoudsopgave in met behulp van de onderstaande formule:
=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")
8. Vanaf nu springt u direct naar het betreffende blad zodra u op de hyperlink klikt. Bovendien wordt de inhoudsopgave automatisch bijgewerkt wanneer u een nieuw blad invoegt, verwijdert of de bladnaam wijzigt.
- 1. Met deze methode worden ook alle verborgen bladen opgenomen in de inhoudsopgave.
- 2. Sla het bestand op als „Excel-werkmap met macro’s” om ervoor te zorgen dat de formules bij het volgende openen van het bestand correct werken.
Gebruik Kutools voor Excel om automatisch een inhoudsopgave voor alle bladen te maken
Met Kutools voor Excel toont de functie Navigatie al uw bladnamen verticaal in een handig linkerdeelvenster, zodat u razendsnel en eenvoudig naar het gewenste blad kunt navigeren.
Na installatie van Kutools voor Excel, gaat u als volgt te werk:
1. Klik op „Kutools” > „Navigatie”, zie de schermafbeelding:
2. Klik in het uitgevouwen navigatiedeelvenster op het pictogram „Werkmap en Blad”. Vervolgens worden alle geopende werkmappen bovenaan weergegeven en alle zichtbare bladen binnen de werkmap onderaan, zoals te zien is in de schermafbeelding:
3. Ga eenvoudig naar een blad door op de bladnaam in het linkerdeelvenster te klikken. De lijst in het deelvenster wordt automatisch bijgewerkt zodra u een blad verwijdert, invoegt of hernoemt.
Gebruik VBA-code om automatisch een inhoudsopgave voor alle bladen te maken
Soms wilt u verborgen bladen juist niet opnemen in de inhoudsopgave. De volgende VBA-code biedt daarvoor een eenvoudige oplossing.
1. Voeg een nieuw blad toe vóór alle andere bladen waarop u de inhoudsopgave wilt maken en geef dit blad een passende naam. Klik daarna met de rechtermuisknop op het bladtabblad en kies ‘Code weergeven’ in het contextmenu, zie de schermafbeelding:
2. Kopieer de onderstaande code en plak deze in het bladcodevenster van het geopende „Microsoft Visual Basic for Applications”-venster:
VBA-code: Maak automatisch een inhoudsopgave voor alle bladen
Private Sub Worksheet_Activate()
'Updateby ExtendOffice
Dim xWsh As Worksheet
Dim xWshs As Worksheets
Dim xShowHinddenWorkSheet As Boolean
Dim xI As Long
Dim xRg As Range
Dim xStrTitle, xStrTCHeader, xStrWShName As String
xShowHinddenWorkSheet = False 'Change this to True to display the hidden sheets as you need
xStrTitle = "A1"
xStrTCHeader = "A3"
On Error Resume Next
Application.ScreenUpdating = False
Me.Cells.Clear
Me.Range(xStrTitle).Font.Bold = True
Me.Range(xStrTitle).Font.Size = Me.Range(xStrTitle).Font.Size + 2
Me.Range(xStrTitle).Value = "Table of Contents"
Me.Range(xStrTCHeader).Value = "No."
Me.Range(xStrTCHeader).Offset(0, 1).Value = "Sheet Name"
Me.Range(xStrTCHeader).Resize(1, 2).Font.Bold = True
xStrWShName = Me.Name
xI = 1
For Each xWsh In Application.ActiveWorkbook.Worksheets
If xWsh.Name <> xStrWShName Then
If (xWsh.Visible = xlSheetVisible) Or xShowHinddenWorkSheet Then
Me.Hyperlinks.Add Anchor:=Me.Range(xStrTCHeader).Offset(xI, 1), Address:="", SubAddress:="'" & xWsh.Name & "'!A1", TextToDisplay:=xWsh.Name
Me.Range(xStrTCHeader).Offset(xI).Value = xI
xI = xI + 1
End If
End If
Next
Application.ScreenUpdating = True
End Sub
3. Druk daarna op de F5-toets om de code uit te voeren. De inhoudsopgave wordt dan direct aangemaakt op een nieuw werkblad; verborgen bladen worden hierin niet opgenomen, zie de schermafbeelding:
4. Vanaf nu wordt de inhoudsopgave automatisch bijgewerkt zodra u bladen verwijdert, invoegt of hernoemt.
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