Een werkmap maken en tabellen hernoemen
Wilt u werkmappen maken die twaalf werkbladen bevatten, zodat u voor elke maand van het jaar gegevens kunt verzamelen? Laat een macro dit automatisch voor je doen.
De volgende macro maakt een nieuwe, lege werkmap aan met twaalf werkbladen en geeft de afzonderlijke bladen een naam in de steno-vorm van de maandnamen, bijv. "Jan", "Feb" enz. Hier is de juiste macro:
Sub CreateMonth tabellen ()
Dim Tab-nummer als geheel getal
Dim nieuw als werkboek
Dim namen als variant
Namen = array ("Jan", "Feb", "Mar", "Apr", "Mei", "Jun", _
"Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Nieuw instellen = Werkmappen.Toevoegen
Application.SheetsInNewWorkbook = TabNumber
Voor Tabnummer = 1 tot 12
New.Worksheets (TabNumber) .Name = Namen (TabNumber - 1)
Volgende tabbladnummer
Einde sub
Na het starten ontvang je een werkmap met twaalf werkbladen. De volgende afbeelding laat zien hoe het resultaat eruit ziet:
Als u in plaats van de maandnamen andere namen wilt gebruiken, past u de namen in de waardetoewijzing aan op de variabele "Namen".
Tip: Als u wilt weten hoe u macro's in Excel invoert en start, vindt u hier een korte beschrijving: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
