Voorwaardelijke opmaak uitlezen

[GHJW]

Is het mogelijk met vba de inhoud/resultaat van een voorwaardelijke opmaak uit te lezen?
Onderstaande code (Sub Offset1()) werkt op een ingekleurde werkblad cel maar
(Sub Offset2()) werkt niet op een cel die gekleurd is door een voorwaardelijke opmaak.
Als het niet op kleur werkt zou ik ook de voorwaardelijke opmaak kunnen
aanpassen zodat een waarde of tekst uitgelezen kan worden.
Weinig ervaring mat vba, bij voorbaat mijn dank.

Sub Offset1()
If Selection.Interior.color = RGB(189, 215, 238) Then
Selection.Offset(1, 0).Select
Else
Selection.Offset(0, 1).Select
End If
End Sub

Sub Offset2()
If Selection.FormatConditions(1).Interior.colorIndex = RGB(189, 215, 238) Then
Selection.Offset(1, 0).Select
Else
Selection.Offset(0, 1).Select
End If
End Sub

 

[sylvester-ponte]

oeps, voorbeeld bestand vergeten

 

[GHJW]

Alsnog een voorbeeldbestand.

Even er van uitgegaan dat het dusdanig eenvoudig was
dat er geen bestand nodig zou zijn.

Bij toeval kom ik er nu zelf achter, Sorry voor het lastigvallen.
"Index" moet komen te vervallen.
If Selection.FormatConditions(1).Interior.colorIndex = RGB(189, 215, 238) Then

 

[VenA]

Mij lijkt zoiets eenvoudiger.

Sub VenA()
  x = (ActiveCell.FormatConditions.Count > 0) * (ActiveCell.DisplayFormat.Interior.Color = RGB(189, 215, 238))
  Selection.Offset(IIf(x, 0, 1), IIf(x, 1, 0)).Select
End Sub

Nb. DisplayFormat werkt volgens mij vanaf XL2010.