Gebruik een VBA-macro om een nieuwe werkmap te maken die precies zoveel werkbladen bevat als u nodig hebt
In veel macro's moeten nieuwe werkmappen worden gemaakt die bijvoorbeeld gevuld zijn met bepaalde inhoud. Een belangrijke taak hierbij is het maken van een nieuwe Excel-werkmap die precies het gewenste aantal spreadsheets bevat.
De volgende macro doet dit werk. Er wordt een nieuwe werkmap gemaakt met 31 werkbladen, deze werkbladen zijn genummerd van 1 tot 31. Hier zijn de juiste VBA-opdrachten:
Sub FuegeTabellenEin ()
Dim nummer Als geheel getal
Dim ik als geheel getal
Dim Mappe als werkboek
Nummer = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 31
Map instellen = Werkmappen.Toevoegen
Voor i = 1 Naar Mappe.Worksheets.Count
Map.Werkbladen (i) .Naam = i
volgende i
Application.SheetsInNewWorkbook = nummer
Einde sub
Wanneer het wordt gestart, geeft Excel een nieuwe werkmap weer die 31 werkbladen bevat. De volgende afbeelding laat zien hoe dit eruit ziet in het bladregister:
In de macro specificeert u het aantal werkbladen dat u wilt met behulp van het getal 31. Wijzig dit aantal als u minder of meer werkbladen in een werkmap wilt hebben.
Om de macro in te voeren, drukt u op ALT F11 in Excel om de VBA-editor te openen. Gebruik de opdracht INSERT - MODULE om een leeg moduleblad in te voegen. Om de macro rechtstreeks vanuit Excel te starten, gebruikt u de toetsencombinatie ALT F8.
