Code to determine color resulting from conditional format.

[w_dart]

Hi All,

I've got the following code:

Sub ratings()
Dim sh As Worksheet
Dim cell As Range

Application.ScreenUpdating = False


For Each sh In ActiveWorkbook.Sheets
sh.Activate

For Each cell In Range("a1:m46")
If cell.Interior.ColorIndex = 35 Then
cell.Select
'rest of the code is irrelevant
End If
Next

Next sh

Application.ScreenUpdating = True

End Sub

This one checks whether the cell color is green, if that's true the cells contents are evaluated in a rating system. That works great.
The problem is that the cell color is often determined via conditional formatting and the above code snipet ignores this. My question is how to adapt the above code to recognize cell colors wich are colored by conditional formatting.

Any ideas?

Thanks for your help,

Kind regards

WD

 

[xld]

It is not trivial. See http://www.xldynamic.com/source/xld.CFConditions.html

 

[w_dart]

Thanks XLD,

Thanks for the quick response. As you say it's not trivial !

And it looks like this won't work for my Conditional Formatting formula
=IF(WEEKDAY($B5)<>1;TRUE;FALSE)

as it keeps giving me the #VALUE! error. ( I copied
the CFColorindex and the CFArrayColours into a module and tested it
directly on the worksheet. )

Any ideas?

Thanks for your help!