Hoe maakt u een lijst van alle werkbladnamen uit een werkmap?

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

Haal dynamisch een lijst van alle Werkbladnaam uit een werkmap met formules

Haal een lijst van alle Werkbladnaam uit een werkmap met Kutools voor Excel

Haal een lijst van alle Werkbladnaam uit een werkmap met VBA-code

Haal dynamisch een lijst van alle Werkbladnaam uit een werkmap met formules

In Excel kunt u een celnaam definiëren en daarna een formule gebruiken om alle bladnamen uit het huidige werkboek op te halen. Volg hiervoor deze stappen:

1. Klik op 'Formule' > 'Naambeheerder' – zie de schermafbeelding:

2. Klik in het dialoogvenster „Naambeheerder" op de knop „Nieuw", zie schermafbeelding:

3. Voer in het venster „Nieuwe Naam" een naam in het tekstvak „Naam" in en plak daarna de onderstaande formule in het tekstvak „Verwijst naar", zoals te zien is op de schermafbeelding:

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

4. Klik daarna op **OK** > **Sluiten** om de dialoogvensters te sluiten. Ga nu naar het werkblad waarop u 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 de bovenstaande formule is 'Sheetnames' de celnaam die u in stap 3 hebt gemaakt.

5. Sleep vervolgens de vulgreep omlaag naar de cellen totdat lege cellen verschijnen. Nu worden alle bladnamen uit het huidige werkboek weergegeven, zoals op de onderstaande schermafbeelding:

6. Als u een hyperlink naar elk werkblad wilt toevoegen, gebruikt u de volgende formule:

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

Opmerking: In de bovenstaande formule bevat cel "A2" de bladnaam en geeft "A1" aan waar u de actieve cel wilt plaatsen. Wanneer u bijvoorbeeld op de hyperlink klikt, wordt cel A1 van het desbetreffende werkblad geopend.

7. Klik nu op de hyperlinktekst om direct naar dat blad te navigeren – zie de onderstaande demo:

Haal een lijst van alle Werkbladnaam uit een werkmap met Kutools voor Excel

Met de functie 'Maak koppeltabel' van de externe add-in 'Kutools voor Excel' maakt u in één klik een lijst met werkbladnamen, compleet met hyperlinks naar elk afzonderlijk werkblad.

1. Klik op **Kutools Plus** > **Werkblad** > **Maak koppeltabel**, zoals te zien is in de schermafbeelding:

2. Geef in het dialoogvenster 'Maak koppeltabel' de volgende instellingen op:

(1.) Kies de 'Stijl' die u wilt: u kunt de werkbladnaam voorzien van hyperlinks of macroknoppen. (2.) Voer de werkbladnaam in voor het bladindex. (3.) Geef de locatie van de werkbladindex op. (4.) Geef aan hoeveel kolommen u wilt gebruiken op het nieuwe werkblad om de werkbladnaam weer te geven.

3. Nadat u de instellingen hebt voltooid, klikt u op 'OK'. Alle werkbladnamen worden nu als koppelingen weergegeven in een nieuw werkblad van het huidige werkboek. Zie schermafbeelding:

Werkbladnaam met hyperlinks	Werkbladnaam met macroknoppen

Haal een lijst van alle Werkbladnaam uit een werkmap met VBA-code

1. Druk op "ALT" + "F11" om het venster Microsoft Visual Basic for Applications te openen.

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

VBA: Lijst van alle Werkbladnaam 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 huidige werkboek worden nu weergegeven in een nieuw werkblad met de naam „Index", compleet met hyperlinks die naar elk respectievelijk blad navigeren. Zie de onderstaande schermafbeelding:

Gerelateerde artikelen