Hoe maakt u een dynamische lijst van werkbladnamen in Excel?
Als u meerdere werkbladen hebt in een werkmap en een dynamische lijst van alle bladnamen wilt maken op een nieuw werkblad binnen diezelfde werkmap, hoe pakt u dat dan aan? In deze handleiding ontdekt u handige trucs om deze taak snel en eenvoudig uit te voeren in Excel.
Maak een dynamische lijst van Werkbladnaam met Gedefinieerde naam en formule
Maak een dynamische lijst van Werkbladnaam met VBA-code
Maak een dynamische lijst van Werkbladnaam met Kutools voor Excel 
Toon een dynamische lijst van Werkbladnaam met Kutools voor Excel
Maak een dynamische lijst van Werkbladnaam met Gedefinieerde naam en formule
1. Selecteer een cel in een leeg werkblad; ik kies hier A1. Klik vervolgens op Formules > Gedefinieerde namen. Zie de schermafbeelding:
2. Typ in het dialoogvenster Nieuwe Naam de naam Bladen in het vak Naam (u kunt deze naar wens wijzigen) en voer de volgende formule in het vak Verwijst naar: =SUBSTITUTE(GET.WORKBOOK(1),„["&GET.WORKBOOK(16)&"]",„"). Zie schermafbeelding:
3. Klik op OK. Ga vervolgens naar de geselecteerde cel (A1) en typ de volgende formule: =INDEX(Bladen;RIJEN($A$1:$A1)) (A1 is de cel waarin u deze formule typt; „Bladen” is de naam die u in stap 2 hebt gedefinieerd). Sleep daarna de automatische vulgreep omlaag totdat #VERWIJZ! verschijnt.
Tip: Als er werkbladen worden verwijderd of toegevoegd, ga dan naar cel A1, druk op Enter en sleep de automatische vulgreep opnieuw naar beneden.
Maak een dynamische lijst van Werkbladnaam met VBA-code
Als u een dynamische lijst van Werkbladnaam wilt maken die naar elk blad linkt, kunt u VBA-code gebruiken.
1. Maak een Nieuw werkblad en hernoem deze naar Index. Zie schermafbeelding:
2. Klik met de rechtermuisknop op de bladnaam Index en selecteer Code weergeven in het contextmenu. Zie schermafbeelding:
3. Kopieer en plak in het venster dat verschijnt de onderstaande VBA-code.
VBA: Maak een dynamische lijst van Werkbladnaam.
Private Sub Worksheet_Activate()
'Updateby20150305
Dim xSheet As Worksheet
Dim xRow As Integer
Dim calcState As Long
Dim scrUpdateState As Long
Application.ScreenUpdating = False
xRow = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = "INDEX"
.Cells(1, 1).Name = "Index"
End With
For Each xSheet In Application.Worksheets
If xSheet.Name <> Me.Name Then
xRow = xRow + 1
With xSheet
.Range("A1").Name = "Start_" & xSheet.Index
.Hyperlinks.Add anchor: = .Range("A1"), Address: = "", _
SubAddress: = "Index", TextToDisplay: = "Back to Index"
End With
Me.Hyperlinks.Add anchor: = Me.Cells(xRow, 1), Address: = "", _
SubAddress: = "Start_" & xSheet.Index, TextToDisplay: = xSheet.Name
End If
Next
Application.ScreenUpdating = True
End Sub4. Klik op Uitvoeren of druk op F5 om de VBA uit te voeren. Er wordt nu een dynamische lijst van werkbladnamen gemaakt.
Tip:
1. Wanneer er een werkblad in de werkmap wordt verwijderd of ingevoegd, past de lijst met werkbladnamen zich automatisch aan.
2. Klik op de bladnaam in de Namenlijst om direct naar dat blad te navigeren.
De bovenstaande twee methoden zijn misschien niet handig genoeg. Als u geïnteresseerd bent in een nieuwe tool, kunt u de volgende twee methoden proberen, die deze taak eenvoudiger kunnen maken.
Maak een dynamische lijst van Werkbladnaam met Kutools voor Excel
Wilt u snel alle werkbladnamen van de werkmap weergeven en direct koppelen aan de oorspronkelijke bladen? Gebruik dan de functie Maak koppeltabel van Kutools voor Excel.
Na gratis installerenKutools voor Excel, gaat u als volgt te werk:
1. Klik op KUTOOLS PLUS > Werkblad > Maak koppeltabel. Zie schermafbeelding:
2. In het dialoogvenster Maak koppeltabel:
(2) Geef het nieuwe indexblad een naam door de gegevens in te voeren in het Naam van de koppeltabeltekstvak;
(3) Geef de locatie op waar u het toegevoegde indexblad wilt plaatsen in de Locatie in het werkboeklijst;
(4) Als u de bladnamen in één enkele lijst wilt weergeven, selecteert u 1 kolom in de Aantal rijen om te overspannenlijst.
3. Klik op OK. U ziet nu dat de bladnamen worden weergegeven.
Tips:
1. U kunt op de bladnaam klikken om snel naar het bijbehorende originele blad te gaan.
2. De lijst met bladnamen past zich niet automatisch aan wanneer bladen worden ingevoegd of verwijderd.
3. U kunt ook een lijst met knoppen maken die naar de betreffende bladen linken; vink hiervoor gewoon Maak knoppen en macro's aan in het dialoogvenster. Zie de schermafbeelding:
Klik hier voor meer informatie over het maken van een koppeltabel.
Maak een klikbare lijst van bladnamen
Toon een dynamische lijst van Werkbladnaam met Kutools voor Excel
Met Kutools voor Excelkunt u ook de hulpprogramma Navigatiegebruiken om de koppelbare Werkbladnaam weer te geven in een deelvenster
Na gratis installerenKutools voor Excel, gaat u als volgt te werk:
1. Klik op Kutools > Navigatie. Klik vervolgens op Werkmap en Blad om de werkmap en bijbehorende werkbladen weer te geven. Selecteer een werkmap; de bijbehorende werkbladen verschijnen dan in het Navigatie-deelvenster. Zie de schermafbeelding:
Tip:
Wanneer werkbladen worden verwijderd of toegevoegd, kunt u op de 
in het Navigatie-deelvenster klikken om de werkbladnamen te vernieuwen.
Klik hier voor meer informatie over Navigatie.
Navigatie -- Bladen weergeven
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