kleur voorwaardelijke opmaak

[123biertje]

Beste

Is het mogelijk om de kleur van een voorwaardelijke opmaak automatisch te veranderen in het werkblad zelf?

M.v.g. Henk

Bekijk bijlage Test-kalender.xlsx

 

[SjonR]

Henk,

Welke kleur moet veranderen en vooral wanneer?

 

[123biertje]

Beste SjonR

Als ik Bv. de kleur van de Snipperdag licht groen wil maken, en dit aangeven in het blad zelf,
is het dan mogelijk om dit automatisch te doen, zonder zelf eerst naar voorwaardelijke opmaak te gaan en de kleur handmatig te veranderen.
Ik hoop dat dit iets duidelijker is uitgelegd.

mvg Henk

 

[SjonR]

Ik denk niet dat dat mogelijk is. Het wijzigen via voorwaardelijke opmaak is toch ook zo gepiept?

Misschien dat het kan als je de voorwaardelijke opmaak in beginsel anders aanpakt, maar daar heb ik verder geen idee bij. Wellicht dat een andere helper hier duidelijkheid over kan verschaffen.

 

[sylvester-ponte]

met vba is het mogelijk, wel met een knop. (een kleur wijzigen levert geen trigger op)

 

[HSV]

Geef cel AP2 een ander kleurtje.

Sub hsv()
Dim fc As FormatCondition, cl As Range, j As Long
Application.ScreenUpdating = False
   For Each cl In Range("c4:ag32")
    For j = 1 To cl.FormatConditions.Count
     Set fc = cl.FormatConditions(j)
       If fc.Formula1 = "=VERT.ZOEKEN(C5;snipperdagen;1;0)=C5" Then
          fc.Interior.Color = Range("ap2").Interior.Color
          Exit For
       End If
    Next j
 Next cl
End Sub

 

[123biertje]

Beste Harry

Bedankt voor je snelle reactie, werkt mooi , maar kan ik de rest "seniorendag", "vakantie"en "ziek"ook zo in de formule zetten,
zou je mij een voorzetje kunnen geven.

Bvd Henk

 

[HSV]

Doe het even in een testbestandje Henk.

Sub hsv()
Dim fc As FormatCondition, cl As Range, j As Long
Application.ScreenUpdating = False
   For Each cl In Range("c4:ag32")
    For j = 1 To cl.FormatConditions.Count
     Set fc = cl.FormatConditions(j)
      Select Case fc.Formula1
       Case "=VERT.ZOEKEN(C5;snipperdagen;1;0)=C5"
          fc.Interior.Color = Range("ap2").Interior.Color
       Case "=VERT.ZOEKEN(C5;srdagen;1;0)=C5"
          fc.Interior.Color = Range("ap3").Interior.Color
       Case "=VERT.ZOEKEN(C5;vakantie;1;0)=C5"
          fc.Interior.Color = Range("ap4").Interior.Color
       Case "=VERT.ZOEKEN(C5;ziek;1;0)=C5"
          fc.Interior.Color = Range("ap5").Interior.Color
       End Select
    Next j
 Next cl
End Sub

 

[123biertje]

Beste Harry

Bedankt voor deze oplossing,:thumb: hier kan ik even mee verder

Mvg Henk