Kleuren kalender

[karel1982]

Ik heb al verschillende zaken geprobeerd, maar geraak er niet.

Het is de bedoeling dat het aantal plaatsingsdagen (Kolom AE) gekleurd worden in de kalender.
Maar enkel op de dagen die nog wit zijn. Dus verlofdagen en weekends niet inbegrepen.

 

[emields]

Plaats een bewerkbaar voorbeeld, fantasietjes zijn voor als het volledig afgewerkt is.

 

[karel1982]

Begrijp je vraag niet met bewerkbaar voorbeeld.

Kolom AC gaat hij gaan zoeken naar de rode velden per maand om het aantal verlofdagen te tellen.
Kolom AD berekend het aantal dagen met mindering van de verlofdagen.
Kolom AE zijn de werkdagen die ingevuld worden op een ander tabblad en ga ik zoeken aan de hand van kolom AB. In het voorbeeld heb ik nu gewoon manueel wat cijfers ingevuld.

Het is dus de bedoeling dat het aantal dagen uit kolom AE automatisch gekleurd worden in de kalender rekening houdend met de verlofdagen.

Kolom AF en AG zijn bijkomstig. Hoeven zelfs niet.

 

[AHulpje]

Nog volstrekt onduidelijk wat je wilt bereiken. Kleur als voorbeeld met de hand de maand mei eens in, misschien snap ik het dan.

 

[karel1982]

Heb de maand mei aangepast naar 7 plaatsingsdagen (Kolom AE).

 

[emields]

Kolom AE zijn de werkdagen die ingevuld worden op een ander tabblad

En moeten wij bij u komen kijken naar dat ander tabblad?

 

[karel1982]

En moeten wij bij u komen kijken naar dat ander tabblad?

Had fictieve dagen ingevuld in het voorbeeld.

Bij deze het extra tabblad.

 

[AHulpje]

Druk eens op de knop "Invullen plaatsingsdagen".
De macro zou ook automatisch uitgevoerd kunnen worden als er in kolom AE iets gewijzigd wordt, in dat geval zouden eerste alle "gele" dagen weer ontkleurd moeten worden.

 

[AHulpje]

In bijgaande versie wordt bij wijziging van aantal plaatsingsdagen in kolom AE de kalender automatisch gekleurd.

 

[karel1982]

De automatische versie is wat ik zoek. Thx.

Krijg wel een foutmelding als ik buiten de cellen AE9:AE20 iets wil aanpassen

Hoe kan ik dat aanpassen?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("AE9:AE20")) Then
KleurKalender
End If
End Sub

 

[AHulpje]

Oeps, had natuurlijk moeten zijn:

    If Not Intersect(Target, Range("AE9:AE20")) Is Nothing Then

 

[karel1982]

Werkt perfect.