Maak een inhoudsopgave voor een werkmap door de namen van alle werkbladen in een Excel-werkmap op te sommen
Wilt u een lijst krijgen van alle werkbladen in een werkmap? Gebruik dan een VBA-macro. De volgende macro maakt een nieuw werkblad in de actieve werkmap en vermeldt de namen van alle bladen onder elkaar in dit werkblad:
SublijstBlaetter ()
Dim lijn als geheel getal
Lijst dimmen als werkblad
Lijst instellen = ActiveWorkbook.Worksheets.Add
Voor regel = 1 Naar ActiveWorkbook.Worksheets.Count
Lijst.Cellen (rij, 1) .Waarde = Werkbladen (rij) .Naam
Volgende regel
Einde sub
Eenmaal gestart, genereert de macro een lijst met de werkbladen in de actieve werkmappen. Deze lijst staat in een nieuw werkblad. De volgende afbeelding laat zien hoe het resultaat eruit kan zien:
Om de macro in te voeren, drukt u in Excel op de toetscombinatie ALT F11. Dit roept de VBA-editor op. Gebruik de opdracht INSERT - MODULE om een leeg moduleblad in te voegen. Om de macro te starten, drukt u in Excel op de toetscombinatie ALT F8.