Slik lager du arbeidsbøker slik du vil
Vil du sørge for at du lager en hel serie med tomme regneark i tabellen og omdøper dem alle etter dine ønsker?
Det tar mye tid hvis du gjør det manuelt. Manuell omdøping av tabellene er spesielt tidkrevende.
Det er lettere med en makro. Skriv inn tabellnavnene i et område i en tabell. Følgende illustrasjon viser hvordan dette kan se ut:
Deretter kaller du følgende makro for å lage tabellene:
Sub FuegeBlaetterMithNamenEin ()
Dim område som streng
Dim Cell As Range
Dim tabell som regneark
Areal = "a1: a24"
Med ActiveWorkbook
For hver celle i ActiveSheet.Range .Cells
Sett tabell = .Sheets.Add (Etter: =. Sheets (Sheets.Count))
Table.Name = Cell.Text
Neste celle
Slutt med
Slutt Sub
Sett med variabelen område bestemmer fra hvilket område av tabellen navnene på regnearkene er hentet.
Følgende figur viser en arbeidsbok der tabellnavnene for 2010 og 2011 ble opprettet:
Tips: Hvis du vil vite hvordan du skriver inn og starter makroer i Excel, finner du en kort beskrivelse her: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
