Tabkleur veranderen

[JoGoSoft]

Hallo,
Ik heb een bestand met de dagen van een hele maand.
Hierbij wil ik de tabkleur van de weekeinden een andere kleur geven. (VBA).
(zaterdag en zondag moeten rode tabs opleveren).Bekijk bijlage Tabkleur.xls
Op elke tabblad staat de dag aanduiding in cel B1.
De kleuren van de tabs moeten automatisch aanpassen aan deze dag.
Iedere maand veranderen de tabs door op tabblad 1 de begin datum aan te passen.
Dus elke maand verspringt het weekeinde.
Hoe kan ik deze automatisch laten aanpassen wanneer ik de begin datum verander?
Elke hulp is bij deze welkom

jogosoft

 

[wiki]

in iedere cel a3 de formule

=WEEKDAG(B1)

in Thisworkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
aantal_bladen = Worksheets.Count
For n = 1 To aantal_bladen
Sheets(n).Activate
 If Cells(1, 3) = 1 Or Cells(1, 3) = 7 Then
 Sheets(n).Tab.ColorIndex = 3
 Else
 Sheets(n).Tab.ColorIndex = 27
 End If
Next n
End Sub

gr wim

 

[robdgr]

Om je op weg te helpen maar misschien is de oplossing van Wim afdoende. Ziet er in elk geval goed uit.

 

[JoGoSoft]

Hallo Wiki,

Alles aangepast en ingevoerd als door jou aangegeven.
Alle tabs worden alleen maar geel, dus de weekeinden krijgen geen andere kleur.
Zie ik iets over het hoofd?

Bekijk bijlage Tabkleur.xls

Groet,

Jogosoft

 

[gelens]

JoGoSoft

De rode getallen staan verkeerd om.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
aantal_bladen = Worksheets.Count
For n = 1 To aantal_bladen
Sheets(n).Activate
 If Cells([COLOR="red"]3, 1[/COLOR]) = 1 Or Cells([COLOR="red"]3, 1[/COLOR]) = 7 Then
 Sheets(n).Tab.ColorIndex = 33
 Else
 Sheets(n).Tab.ColorIndex = 27
 End If
Next n
End Sub

 

[gelens]

JoGoSoft

Je kunt ook de hulpcellen in B1 en A3 vergeten.
Het onderstaande kijkt naar de datum in cel A1 en bepaald aan de hand daarvan de kleur van het tabblad.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
aantal_bladen = Worksheets.Count
For n = 1 To aantal_bladen
Sheets(n).Activate
 If Weekday(Cells(1, 1), 2) >= 6 Then
 Sheets(n).Tab.ColorIndex = 3
 Else
 Sheets(n).Tab.ColorIndex = 27
 End If
Next n
End Sub

 

[wiki]

sorry,

had zelf c1 gebruikt en a3 getypt

gr wim

 

[JoGoSoft]

Heren,

Dit had ik zelf eigenlijk ook moeten zien, maar zoals gewoonlijk, hoe langer men staart des te minder men ziet.
Alle twee de oplossingen zijn geweldig.
Alvast bedankt en bij deze zet ik de vraag als opgelost.

Groet,

Jogosoft