Excel overzicht van tabbladen

[PB-powell]

Mijn vraag
Ik heb een Excel met ruim 60 tabbladen waarin ik op een aantal plekken moet verwijzen naar een specifiek tabblad nummer (nee dit kan niet anders). Is er ergens een overzicht beschikbaar welke tabbladen er allemaal in mijn Excel aanwezig zijn of kan ik dat overzicht zelf (eenvoudig) maken?

Relevante software en hardware die ik gebruik
Het gaat om Excel 2016 in het Engels.

Wat ik al gevonden of geprobeerd heb
Zelf heb ik wat gezocht maar er blijkt in ieder geval geen standaard functionaliteit te zijn. Macro's ben ik niet in thuis maar ik ben wel bereid om met een paar eenvoudige stappen hier iets in te proberen.


Misschien dat er een tweaker is die dit eerder heeft gemaakt of ervaring mee heeft.

[Admiral Freebee]

Via VBA kan je wel een lijst van worksheets krijgen. In ieder geval kan je methode 2 en 3 proberen die omschreven staat op volgende site: https://www.datanumen.com...mes-in-an-excel-workbook/

Hieronder nog de VBA code voor mocht de link down zijn later:

code:

Sub ListSheetNamesInNewWorkbook()
    Dim objNewWorkbook As Workbook
    Dim objNewWorksheet As Worksheet

    Set objNewWorkbook = Excel.Application.Workbooks.Add
    Set objNewWorksheet = objNewWorkbook.Sheets(1)

    For i = 1 To ThisWorkbook.Sheets.Count
        objNewWorksheet.Cells(i, 1) = i
        objNewWorksheet.Cells(i, 2) = ThisWorkbook.Sheets(i).Name
    Next i

    With objNewWorksheet
         .Rows(1).Insert
         .Cells(1, 1) = "INDEX"
         .Cells(1, 1).Font.Bold = True
         .Cells(1, 2) = "NAME"
         .Cells(1, 2).Font.Bold = True
         .Columns("A:B").AutoFit
    End With
End Sub

De bovenstaande code maakt een overzicht in een nieuw document.

[PB-powell]

@Admiral Freebee thanks! die website had ik niet gevonden maar geeft wel heldere uitleg over hoe een macro te maken en uit te voeren tevens geprobeerd en het werkt.

[Admiral Freebee]

Top! Fijn dat het werkt

[dix-neuf]

Een overzicht van de aanwezige tabbladen kun je ook verkrijgen door met de rechtermuisknop op 1 van de pijltjes te klikken die links van de eerste tabladnaam staan.

[PB-powell]

@dix-neuf dat had ik gezien, maar het ging mij om de exacte nummers van die tabbladen. Met 57 stuks de 33e zoeken is dan wat lastig

[dix-neuf]

Het is misschien praktischer om dat overzicht van de bladen in het Excelbestand op te nemen waarin je aan het werk bent. Als je dat wil, dan kan dat met onderstaande macro, waarin het overzicht van de bladnamen en nummers in een nieuw blad wordt weergegeven, dat als laatste blad wordt toegevoegd.

code:

Sub macro1()
Dim x As Integer
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Bladnamen"
With Sheets("Bladnamen")
For x = 1 To Sheets.Count
.Cells(x, 1).Value = x
.Cells(x, 2).Value = Sheets(x).Name
Next x
End With
End Sub