Een lijst maken van alle werkbladen in de actieve werkmap met behulp van een VBA-macro
Wilt u een tabel maken van alle werkbladen in de actieve werkmap? Gebruik de volgende macro:
Sub ShowTablesheets ()
Dim rij zo lang
Gedimd blad als werkblad
Dim nieuw blad als werkblad
Stel Neublatt = ActiveWorkbook.Worksheets.Add in
Rij = 1
Voor elk blad in ActiveWorkbook.Worksheets
Als Blad.Naam Nieuw Blad.Naam Dan
Nieuw blad. Cellen (rij, 1) = blad.naam
Lijn = lijn + 1
Stop als
Volgende blad
Einde sub
De macro maakt een nieuw werkblad in de actieve werkmap waarin de namen van alle werkbladen worden opgeslagen. Alleen het nieuwe overzichtsblad is uitgesloten van de lijst. De volgende afbeelding laat zien hoe het resultaat eruit kan zien:
Om de macro in te voeren, opent u de VBA-editor in Excel met de toetsencombinatie ALT F11. Selecteer in deze editor de opdracht INSERT - MODULE en voer de macro in. Je start de macro vanuit Excel met de toetscombinatie ALT F8.
