Ik heb een jaarkalender gemaakt waarbij ik na de keuze van de maand en het jaartal de datumgetallen automatisch invul. Dit werkt perfect
Mijn vraag: De feestdagen te kleuren. De dagen zijn vast ingesteld in de cellen A3 tot A9, beginnende met maandag.
De eerste dag van de maand kan dus variëren van maandag tot zondag.
Deze dagen worden dus automatisch ingevuld in de kolommen B, D, F, H, J en soms L naargelang de lengte van de maand(5 of 6 weken).
Nu zou ik willen de cijfers van de feestdagen In een rode kleur zetten. (1 januari, Pasen, enz) .
Ik heb geprobeerd de cellen B3 tot L9 te selecteren en dan via zoeken in de selectie de gevraagde dag bv: 1 te vinden en deze cel te selecteren.
Dan zou ik via een if functie de geselecteerde cel en de maand vergelijken en de tekst kleuren als het een feestdag is. Bv als de cel de waarde 1 heeft en de maand is januari, mei of november dan zou die 1 in kleur moeten komen te staan.
Dit lukt mij echter niet.
Mijn vba-code is :
Range("B3:K9").Select
Selection.Find(What:="1").Activate
Heeft iemand raad of een betere idee om alle feestdagen een rode kleur te geven.
Mijn vraag: De feestdagen te kleuren. De dagen zijn vast ingesteld in de cellen A3 tot A9, beginnende met maandag.
De eerste dag van de maand kan dus variëren van maandag tot zondag.
Deze dagen worden dus automatisch ingevuld in de kolommen B, D, F, H, J en soms L naargelang de lengte van de maand(5 of 6 weken).
Nu zou ik willen de cijfers van de feestdagen In een rode kleur zetten. (1 januari, Pasen, enz) .
Ik heb geprobeerd de cellen B3 tot L9 te selecteren en dan via zoeken in de selectie de gevraagde dag bv: 1 te vinden en deze cel te selecteren.
Dan zou ik via een if functie de geselecteerde cel en de maand vergelijken en de tekst kleuren als het een feestdag is. Bv als de cel de waarde 1 heeft en de maand is januari, mei of november dan zou die 1 in kleur moeten komen te staan.
Dit lukt mij echter niet.
Mijn vba-code is :
Range("B3:K9").Select
Selection.Find(What:="1").Activate
Heeft iemand raad of een betere idee om alle feestdagen een rode kleur te geven.