Opgelost Inhoudsopgave van zichtbare werkbladen

[Marco9999]

Hallo,

Ik heb een rapportje opgesteld van zo'n 25 werkbladen.
Afhankelijk van het soort rapport worden diverse werkbladen verborgen.

Nu zou ik graag aan het begin van het rapport een werkblad met inhoudsopgave plaatsen waar alleen de zichtbare werkbladen in komen te staan.
Dus stel dat ik op ieder werkblad in cel A1 de tekst zet die ik in de inhoudsopgave wil hebben, hoe krijg ik het voor elkaar om dan de verborgen werkbladen niet in de inhoudsopgave te krijgen?

Iemand een ideetje?

Groet,
Marco

 

[emields]

Ik krijg uw voorbeeldbestandje niet open.

 

[Marco9999]

Dat zou heel goed mogelijk zijn, er zit geen voorbeeldbestandje bij..

 

[popipipo]

Daar wachten we dan even op.

 

[HSV]

Gegevens worden in het eerste werkblad weggeschreven.

sub hsv()
dim sh as worksheet
with sheets(1)
 .cells(1).currentregion.columns(1).clearcontents
  for each sh in sheets
    if sh.visible then .cells(rows.count, 1).end(3).offset(1) = sh.cells(1)
  next sh
end with
end sub

 

[OctaFish]

Dat zou heel goed mogelijk zijn, er zit geen voorbeeldbestandje bij..

De ironie is je blijkbaar ontgaan .