Voorwaardelijke opmaak - gegevensbalken

[RNJK]

Goedemiddag!

Ik heb een vraag over voorwaardelijke opmaak en in het bijzonders over gegevensbalken. Kan ik de de gegevensbalken meer dan één kleur geven, afhankelijk van een bepaalde formule?

Het bestand heb ik bijgevoegd als voorbeeld.

Hopelijk kan iemand mij helpen!

Mvg,

Remco

 

[VenA]

Het lukt mij alleen met een macro waarbij elke cel een eigen voorwaardelijke opmaakregel moet hebben.

Private Sub Worksheet_Calculate()
For Each cl In Columns(9).SpecialCells(-4172)
  With cl.FormatConditions(1)
    If .Type = 4 Then .BarColor.Color = Application.Choose((cl.Value < 100 And cl.Offset(, -2) <= Date) + 2, vbRed, vbGreen)
  End With
Next
End Sub

 

[RNJK]

Wauw, het werkt!! Precies wat ik bedoel.

Top, mijn dank is groot !

 

[VenA]

Da's mooi. Voldoet niet geheel aan de vraag maar mij lijkt het logischer dat als een project afgerond is deze ook groen te maken.