AutoFit hidden/unhidden columns

[Verwijderd]

Bij een autofit zijn alle verborgen kolommen weer zichtbaar.

Na onderstaande code is de autofit correct uitgevoerd:

Cells.Select
Selection.Columns.AutoFit

Het is niet erg dat de autofit ook op de verborgen kolommen is uitgevoerd,
maar de voorheen verborgen kolommen moeten weer verborgen worden.

[Grijze Vos]

in pseudo code:

code:

maak lege lijst aan
for K in kolommen
  * if K = verborgen -> voeg toe aan lijst
next K
doe auto fit
for X in lijst
  * maak kolom X hidden
next X

Zoiets is toch niet al te moeilijk om te maken/bedenken..

[Verwijderd]

fttomh:

code:

dim VerborgenKolommen(256) as boolean
application.screenupdating=false
for CurCol =1 to 256
  verborgenkolommen(curcol)=activesheet.columns(curcol).hidden
next
Cells.Select
Selection.Columns.AutoFit
for CurCol =1 to 256
  activesheet.columns(curcol).hidden=verborgenkolommen(curcol)
next
application.screenupdating=true

[Verwijderd]

Bedankt allen voor de super snelle reactie.

Ik heb zelf gezocht naar een standaard selectie van hidden kolommen, maar dat heb ik niet kunnen vinden.
Op deze wijze is het ook snel geregeld.