Hur man skapar en lista över alla kalkylblad i den aktiva arbetsboken med hjälp av ett VBA -makro
Vill du skapa en tabell med alla blad i den aktiva arbetsboken? Använd följande makro:
Sub ShowTablesheets ()
Dim Row As Long
Dimma blad som arbetsblad
Dim Nytt blad som arbetsblad
Ange Neublatt = ActiveWorkbook.Worksheets.Add
Rad = 1
För varje blad i ActiveWorkbook.Worksheets
If Sheet.Name New Sheet.Name Då
Nytt blad.Celler (rad, 1) = blad.namn
Rad = rad + 1
Avsluta om
Nästa blad
Avsluta Sub
Makrot skapar ett nytt kalkylblad i den aktiva arbetsboken där namnen på alla kalkylblad sparas. Endast det nya översiktsarket är uteslutet från listan. Följande bild visar hur resultatet kan se ut:
För att gå in i makrot, öppna VBA -redigeraren i Excel med tangentkombinationen ALT F11. I den här redigeraren väljer du kommandot INSERT - MODULE och anger makrot. Du startar makrot från Excel med tangentkombinationen ALT F8.