Inhoudsopgave
De volgende macro loopt door elk blad in een werkmap en schrijft de tabnaam van elk blad opeenvolgend naar een blad dat u kiest. Dit kan handig zijn voor een snelle lijst van elk blad in een werkmap met veel bladen.
Alle werkbladen in een werkmap weergeven
Om de macro te gebruiken, vervangt u gewoon het woord Blad1 (het verschijnt twee keer) in de code door de naam van het tabblad waar u de resultaten wilt hebben. Zorg ervoor dat er geen belangrijke informatie op het uitvoertabblad staat, omdat het de gegevens wist voordat ze ernaar schrijven.
| 123456789101112131415 | Sublijstbladen()Dim ws als werkbladDim x als geheel getalx = 1Bladen ("Blad1").Bereik ("A:A").WissenVoor elke ws In werkbladenBladen ("Blad1"). Cellen (x, 1) = ws.Naamx = x + 1Volgende wsEinde sub |
