filter in meerdere tabbladen

[knarfje]

Weet iemand waarom deze code niet werkt.
5 tabbladen selecteren en er een filter op zetten.

Sub test()

Sheets(Array("Blad1", "Blad2", "Blad3", "Blad4", "Blad5")).Select
Range("A3:G3").Select
Selection.AutoFilter

End Sub

 

[Wigi]

Een autofilter hoort bij 1 blad. Pas dit dus toe op 1 blad.

 

[knarfje]

Maar ik wil graag de autofilter op alle 5 de bladen hebben.

 

[Warme bakkertje]

Sub test()
For each sh in thisworkbook.sheets
[A3:G3].AutoFilter
Next
End Sub

 

[knarfje]

Het werkt niet?!

Niet in alle sheets maat alleen in blad 1 t/m 5

 

[Roncancio]

In dat geval:

Sub test()
Dim iSH As Integer
    For iSH = 1 To 5
        Sheets(iSH).[A3:G3].AutoFilter
    Next
End Sub

Met vriendelijke groet,


Roncancio

 

[knarfje]

Foutmelding op regel
Sheets(iSH).[A3:G3].AutoFilter

 

[Roncancio]

Foutmelding op regel
Sheets(iSH).[A3:G3].AutoFilter

Welke foutmelding krijg je?

Met vriendelijke groet,


Roncancio

 

[knarfje]

VBA opent en de regel is geel en de macro stopt.

 

[Roncancio]

VBA opent en de regel is geel en de macro stopt.

Maar krijg je dan geen melding?
Bij mij werkt het gewoon en ik neem aan dat er minimaal 5 werkbladen aanwezig zijn.

Met vriendelijke groet,


Roncancio

 

[Warme bakkertje]

Probeer 'm zo eens

Sub test()
Dim iSH As Integer
    For iSH = 1 To 5
        Sheets(iSH).Range("A3:G3").AutoFilter
    Next
End Sub

 

[knarfje]

Nu werkt het inderdaad wel maar VBA word nog steeds geopend met de "gele" regel
en de melding
Runtime error 9
Subscript out of range

 

[Roncancio]

Nu werkt het inderdaad wel maar VBA word nog steeds geopend met de "gele" regel
en de melding
Runtime error 9
Subscript out of range

Kan je het bestand bijsluiten (zonder gevoelige informatie)?

Met vriendelijke groet,


Roncancio