Hur man skapar en lista över de dolda tabellerna med VBA
Du kan göra arken i en arbetsbok osynliga med kommandot "Format - Ark - Dölj". Det är då fortfarande möjligt att komma åt tabellinnehållet med en formel, men tabellen är inte längre synlig.
Om du behöver en lista över alla dolda kalkylblad i den aktiva arbetsboken kan du använda följande makro:
Sub ListHiddenTablesOn ()
Dim Table As Worksheet, NewTable As Worksheet
Dim CurrentMappe Som arbetsbok
Dim i As Integer
Ange CurrentMappe = ActiveWorkbook
Ställ in NeueTabelle = Workbooks.Add.Sheets (1)
För varje tabell i CurrentMappe.Worksheets
If Table.Visible = False Then
i = i + 1
NewTable.Cells (i, 1) .Value = Table.Name
Avsluta om
Nästa tabell
Avsluta Sub
Makrot går igenom alla kalkylblad och kontrollerar egenskapen Synlig. Om det inte uppfylls är det ett dolt kalkylblad. Sedan överförs namnet på arket till listan.
Makrot listar namnen på alla dolda kalkylblad i en tabell i en ny arbetsbok.
Figuren visar resultatet av makrot när det finns tre dolda kalkylblad i den aktiva arbetsboken: "Dold", "Dold" och "Osynlig".
Tips: Om du vill veta hur du anger och startar makron i Excel hittar du en kort beskrivning här:
www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie-makros-in-excel-ein.html
