Verbergen van rijen op meerdere tabbladen tegelijkertijd

[Masjimo]

Ik wil over alle tabbladen van de week tegelijkertijd een aantal regels kunnen verbergen.

Daarvoor probeer ik de onderstaande VBA te gebruiken, maar dat lukt niet...

Sheets(Array("Maandag", "Dinsdag", "Woensdag", "Donderdag", "Vrijdag", "Zaterdag", "Zondag")).Select
Rows("20:23").EntireRow.Select
Selection.Hidden = True

Wat doe ik verkeerd?

 

[Jezet]

Hoi Masjimo,

Je kunt beter met een for - next loop werken.

For i=2 to 8
Worksheets(i).Rows("20:23").Rowheight =0
Next i

2 to 8 betekent de nummers van de werkbladen Maandag t/m Zondag

Groet,
Jeroen

 

[edmoor]

Of inderdaad met een For loop maar dan zo:

    Dim shts As Object
    Dim sht As Object
    Set shts = Sheets(Array("Maandag", "Dinsdag", "Woensdag", "Donderdag", "Vrijdag", "Zaterdag", "Zondag"))
    For Each sht In shts
        sht.Rows("20:23").EntireRow.Hidden = True
    Next sht

Zo gebruik je ook geen .Select en dat is veel beter.

 

[Masjimo]

De methode van Edmoor lijkt me iets minder foutgevoelig, voor het geval de gebruikers gaan schuiven met de tabbladen!

Thanx

 

[Jezet]

Hoi Masjimo en Edmoor,

Klopt, methode van Edmoor is beter en minder foutgevoelig.

Groet,
Jeroen