Hoe maak je een lijst van alle werkbladnamen uit een werkboek?

Stel je voor dat je een werkboek hebt met meerdere werkbladen en je wilt alle bladnamen automatisch in een lijst zetten, compleet met klikbare hyperlinks om naar elk bijbehorend blad te navigeren. Deze handleiding biedt snelle en effectieve methoden om een lijst van werkbladnamen in Excel te genereren.

Haal een lijst met alle werkbladnamen uit een werkboek dynamisch op met formules

Haal een lijst met alle werkbladnamen uit een werkboek op met Kutools voor Excel

Haal een lijst met alle werkbladnamen uit een werkboek op met VBA-code

Haal een lijst met alle werkbladnamen uit een werkboek dynamisch op met formules

In Excel kun je een bereiknaam definiëren en vervolgens een formule toepassen om alle bladnamen uit het huidige werkboek in een lijst te zetten. Volg hiervoor de volgende stappen:

1. Ga naar "Formules" > "Namen", zie onderstaande schermafbeelding:

2. Klik in het dialoogvenster "Namen" op de knop "Nieuw", zie onderstaande schermafbeelding:

3. Voer in het pop-upvenster "Nieuwe Naam" een naam in het tekstvak "Naam" in en kopieer vervolgens de onderstaande formule naar het tekstvak "Verwijst naar", zie onderstaande schermafbeelding:

=GET.WORKBOOK(1)&T(NOW())

4. Klik vervolgens op "OK" > "Sluiten" om de dialoogvensters te sluiten. Ga nu naar een blad waar je alle bladnamen wilt weergeven en voer de volgende formule in een lege cel in:

=IFERROR(INDEX(MID(Sheetnames,FIND("]",Sheetnames)+1,255),ROWS($A$2:A2)),"")

Opmerking: In bovenstaande formule is "Sheetnames" de bereiknaam die je in stap 3 hebt gemaakt.

5. Sleep daarna de vulgreep omlaag naar de cellen tot er lege cellen verschijnen. Nu zijn alle bladnamen van het huidige werkboek zoals hieronder afgebeeld weergegeven:

6. Als je voor elk blad een hyperlink wilt maken, gebruik dan de volgende formule:

=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")

Opmerking: In bovenstaande formule is "A2" de cel die de bladnaam bevat en "A1" de cel waar je de actieve cel wilt laten staan. Bijvoorbeeld, als je op de hyperlinktekst klikt, wordt cel A1 van het blad geopend.

7. Nu, wanneer je op de hyperlinktekst klikt, brengt het je naar dat blad, zie onderstaande demo:

Haal een lijst met alle werkbladnamen uit een werkboek op met Kutools voor Excel

Met het hulpprogramma "Maak koppeltabel" van de derde partij-invoegtoepassing "Kutools voor Excel" kun je in één klik een lijst met werkbladnamen maken en deze koppelen aan elk werkblad met een hyperlink.

1. Klik op "Kutools Plus" > "Werkblad" > "Maak koppeltabel", zie onderstaande schermafbeelding:

2. Specificeer in het dialoogvenster "Maak koppeltabel" de volgende instellingen:

(1.) Kies de gewenste "stijl voor bladindex". Je kunt de werkbladnamen met hyperlinks of met macroknoppen maken. (2.) Voer de werkbladnamen in voor de bladindex. (3.) Specificeer de locatie van de bladindex. (4.) Specificeer hoeveel kolommen je wilt gebruiken in het nieuwe werkblad om de werkbladnamen weer te geven.

3. Nadat je de instellingen hebt voltooid, klik dan op "OK". Alle werkbladnamen zijn nu met links weergegeven in een nieuw werkblad van het huidige werkboek. Zie onderstaande schermafbeelding:

werkbladnamen met hyperlinks	werkbladnamen met macroknoppen

Haal een lijst met alle werkbladnamen uit een werkboek op met VBA-code

1. Houd de toetsen "ALT" + "F11" ingedrukt om het venster "Microsoft Visual Basic for Applications" te openen.

2. Klik op "Invoegen" > "Module" en plak de volgende macro in het venster "Module".

VBA: Lijst alle werkbladnamen met hyperlinks in een nieuw werkblad:

Sub CreateIndex()
'updateby Extendoffice
    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("Index").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Index"
    I = 1
    Cells(1, 1).Value = "INDEX"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Index" 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" om deze macro uit te voeren. Alle werkbladnamen uit het actieve werkboek zijn nu weergegeven in een nieuw werkblad genaamd "Index", met hyperlinks die naar elk respectief blad leiden. Zie onderstaande schermafbeelding:

Gerelateerde artikelen