Hoe alle zichtbare of verborgen werkbladen uit een werkboek te lijsten?

Als u een groot werkboek heeft dat enkele verborgen werkbladen bevat, moet u nu alle zichtbare en verborgen werkbladen apart in een werkblad weergeven, zoals in de volgende schermafbeelding wordt getoond. In dit artikel zal ik bespreken hoe u alle zichtbare en verborgen werkbladen in Excel kunt weergeven.

Alle zichtbare en verborgen werkbladen apart weergeven met VBA-code

Alle zichtbare werkbladen in Excel weergeven met Kutools voor Excel

Alle zichtbare en verborgen werkbladen apart weergeven met VBA-code

Om de namen van de zichtbare en verborgen tabbladen in een werkblad weer te geven, kan de volgende VBA-code u helpen, doe het als volgt:

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

2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.

VBA-code: Alle zichtbare en verborgen werkbladen apart weergeven:

Sub NameSheets()
'Updateby Extendoffice
    Dim x As Long, y As Long, z As Long
    Dim ws As Worksheet
    Dim shtCnt As Integer
    x = 1
    y = 1
    z = 1
    shtCnt = ThisWorkbook.Sheets.Count
    On Error Resume Next
    Application.ScreenUpdating = False
    Sheets.Add After:=Sheets(Sheets.Count)
    For i = 1 To shtCnt
        If Sheets(i).Visible = xlSheetHidden Then
            Cells(x, 2) = Sheets(i).Name
            x = x + 1
        End If
        If Sheets(i).Visible = xlSheetVisible Then
           Cells(y, 1) = Sheets(i).Name
            y = y + 1
        End If
        If Sheets(i).Visible = xlSheetVeryHidden Then
            Cells(z, 3) = Sheets(i).Name
            z = z + 1
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

3. Druk vervolgens op de F5-toets om deze code uit te voeren. Alle zichtbare, verborgen en zeer verborgen werkbladen worden apart in een nieuw werkblad weergegeven, zoals in de volgende schermafbeelding wordt getoond:

Alle zichtbare werkbladen in Excel weergeven met Kutools voor Excel

Als u Kutools voor Excel heeft, kunt u met de functie Maak koppeltabel snel alle zichtbare werkbladen van het huidige werkboek weergeven met hyperlinks naar elk tabblad.

Nadat u Kutools voor Excel hebt geïnstalleerd, doet u het volgende:

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

2. In het dialoogvenster Maak koppeltabel:

(1.) Selecteer Maak hyperlinks onder de sectie Stijl.

(2.) Voer een werkbladnaam in voor de index van het werkblad.

(3.) Specificeer de locatie van de index van het werkblad.

(4.) Specificeer hoeveel kolommen u wilt gebruiken om de namen van de werkbladen in de index weer te geven.

3. Klik vervolgens op de knop Ok. Alle zichtbare werkbladen zijn in een nieuw werkblad weergegeven, met uitzondering van de verborgen werkbladen, zie onderstaande schermafbeelding: