Gebruik een VBA-eigenschap om op te vragen hoeveel werkbladen de actieve werkmap bevat
In veel macro's moeten alle werkbladen in een werkmap worden doorlopen. Om dit te doen, moet u eerst weten hoeveel werkbladen er in een werkmap staan.
U kunt hiervoor de eigenschap COUNT opvragen. De volgende macro laat zien hoe u deze eigenschap in de praktijk kunt gebruiken:
Sub ShowBladnummer ()
Dim nummer Als geheel getal
Getal = Werkbladen.Aantal
MsgBox "De huidige werkmap bevat" & _
Nummer & 'tafels'.
Einde sub
De macro leest het aantal werkbladen in de huidige werkmap voor en geeft dit aantal weer met een bericht in een venster.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.
