Een lijst met verborgen tabellen genereren met VBA
U kunt de bladen van een werkmap onzichtbaar maken met het commando "Opmaak - Blad - Verbergen". Het is dan nog wel mogelijk om met een formule toegang te krijgen tot de tabelinhoud, maar de tabel is niet meer zichtbaar.
Als u een lijst met alle verborgen werkbladen in de actieve werkmap nodig hebt, kunt u de volgende macro gebruiken:
SublijstVerborgenTabellenAan ()
Dim tabel als werkblad, nieuwe tabel als werkblad
Dim CurrentMappe als werkmap
Dim ik als geheel getal
Stel CurrentMappe = ActiveWorkbook in
Stel NeueTabelle = Workbooks.Add.Sheets in (1)
Voor elke tabel in CurrentMappe.Worksheets
Als Tabel. Zichtbaar = Onwaar Dan
ik = ik + 1
NewTable.Cells (i, 1) .Value = Table.Name
Stop als
Volgende tafel
Einde sub
De macro loopt door alle werkbladen en controleert de eigenschap Zichtbaar. Als het niet tevreden is, is het een verborgen spreadsheet. Vervolgens wordt de naam van het blad overgebracht naar de lijst.
De macro bevat de namen van alle verborgen werkbladen in een tabel in een nieuwe werkmap.
De afbeelding toont het resultaat van de macro wanneer er drie verborgen werkbladen in de actieve werkmap zijn: "Verborgen", "Verborgen" en "Onzichtbaar".
Tip: Als u wilt weten hoe u macro's in Excel invoert en start, vindt u hier een korte beschrijving:
www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie-makros-in-excel-ein.html
