VBA: een groot aantal werkbladen opmaken met steeds dezelfde 4 tabkleuren

[ErikdV]

Ik heb een excel sheet met meer dan 4 werkbladen.
Deze werkbladen wil ik opmaken met slechts 4 tabkleuren.
Het 5e werkbblad krijgt dan de zelfde kleur als het 1e werkblad enz.

Ik snap dat ik dan een tellertje moet laten lopen tot 4 en na het 4e werkblad het tellertje moet resetten.
Ik snap alleen niet helemaal hoe de 2 loops van de werkbladen en de 4 kleuren precies in elkaar grijpen.
Kan iemand me hier mee helpen?

 

[Cobbejaan]

Je hoeft maar 1 loop en een teller.
Laat eens zien wat je al hebt.

Anders moet je deze eens testen:

Sub Cobbe()
x = 3
For Each sh In ThisWorkbook.Sheets
    With sh.Tab
        .ColorIndex = x
        .TintAndShade = 0
    End With
  x = x + 1
  If x = 7 Then x = 3
Next
End Sub

 

[ErikdV]

Dank je wel. Dit doet vrijwel wat ik wil
Ik had vrijwel dezelfde code, maar iIk zat te knoeien omdat ik mijn eigen kleuren wilde gebruiken en niet die van de standaard kleurenindex.
Ik ben niet zon fan van de kleuren rood en geel, dus die wil ik overslaan.
Als ik nu telkens als ik een (aantal) kleuren wil overslaan x de gewenste waarde geef zal dit zo wel lukken.

 

[exhelp]

Markeer je vraag even als 'opgelost' aub