Indholdsfortegnelse
Den følgende makro går gennem hvert ark i en projektmappe og skriver fanenavnet på hvert ark sekventielt til et ark, du vælger. Dette kan være praktisk til en hurtig liste over hvert ark i en projektmappe med mange ark.
Liste over alle regneark i en projektmappe
For at bruge makroen skal du bare erstatte ordet Sheet1 (det vises to gange) i koden med fanenavnet, hvor du gerne vil have resultaterne. Sørg for, at der ikke er vigtige oplysninger på outputfanen, fordi den rydder dataene, før de skriver til den.
| 123456789101112131415 | Sub ListSheets ()Dim ws Som regnearkDim x Som heltalx = 1Ark ("Ark1"). Område ("A: A"). KlarFor hver gang i regnearkArk ("Ark1"). Celler (x, 1) = ws.Namex = x + 1Næste wsAfslut Sub |
