Opgelost Tabblad huidige week groen kleuren

[Kapschip]

Hallo,

Ben bezig met het maken van een dagboek gebaseerd op weeknummers.
In de selectie tabblad 1 tm 52 dient de tabblad waarvan de naam overeenkomt met het huidige weeknummer (Cel B9 van tabblad Gegevens) groen te kleuren, overige tabbladen dienen geen kleur te krijgen.

Ben zelf nog niet zo bekend met VBA en macro`s in Excel, wie kan me ermee verder helpen?

Heb een voorbeeldbestand bijgevoegd.

Alvast bedankt voor jullie oplossing,

Richard

 

[edmoor]

Zoiets in de Workbook_Open sectie:

Private Sub Workbook_Open()
    For i = 1 To 52
        Sheets(CStr(i)).Tab.ColorIndex = IIf(i = DatePart("ww", Date, 2, 2), 4, xlColorIndexNone)
    Next i
End Sub

 

[Kapschip]

Ja top, bedankt!!!

 

[snb]

Zet alle gegevens in 1 werkblad met een aparte kolom voor het weeknummer.
Dan heb je geen macro nodig.

 

[Kapschip]

Nee dat ging helaas niet, zijn gebonden aan separate tabbladen voor weeknummers.

 

[snb]

Dan kun je beter papier gebruiken.