Macro voor meerdere werkbladen, maar moet verborgen werkbladen overslaan.

[rntm]

Hallo,

Ik wil een macro hebben die voor meerdere werkbladen werkt, maar verborgen werkbladen overslaat.
In de huidige macro wordt wel het verborgen werkblad overgeslagen, maar wordt er daardoor één werkblad te weinig gedaan.

- Mijn gebruikers hebben bestanden die qua opbouw identiek zijn.
- De te maken macro moet voor al deze bestanden kunnen werken.
- Aantal werkbladen variabel.
- Namen van de werkbladen zijn in elk bestand anders.
- Verborgen werkbladen overslaan.
- Als in dit voorbeeldbestand bij de Inputbox '3' wordt getypt,
moeten Blad1, Blad3 en Blad4 gedaan worden.
- Het verborgen werkblad Blad2 moet worden overgeslagen.

Zie de bijlage voor een voorbeeld.

Bij voorbaat dank voor het laatste kleine zetje.

Ronald

 

[OctaFish]

Bedoel je zoiets?

    intAantal = InputBox("Aantal werkbladen")
    For Each sht In ActiveWorkbook.Sheets
        If sht.Visible = xlSheetVisible Then
            If i < intAantal Then
                MsgBox sht.Name
                i = i + 1
                sht.Cells(1, 1).Value = i
            End If
        End If
    Next sht

 

[rntm]

Bijna,
In jouw code wordt langs alle werkbladen gegaan (each), maar je moet maximaal het aantal werkbladen nemen welke is opgegeven bij de Inputbox.

 

[edmoor]

Als je goed leest zie je dat alleen het opgegeven aantal zichtbare bladen wordt behandeld. Je zou er hooguit nog een Exit For in kunnen opnemen op het moment dat het aantal bereikt is.