OK, did some searching and as I understand, then filtering cancels any
kind of formatting and only takes the data. Therefor a quick and easy
way to solve the problem is useless and I'm back at square one.
I think I need to go back to the initial idea of shapes.
So, the code so far given (BTW big thanks to everyone for that) hasn't
helped me. I think that I have the logic, but can't code:
we have a string variable and 3 shape variables:
Dim shpGreen As Shape, shpRed As Shape, shpYellow As Shape, rlcolor As
String
Now the rlcolor should take the value from a range (my range is
AM10:AM30) where are "yellow", "green" and "red".
After that should come a For cycle, rlcolor takes the values from the
range one by one and then does a If (or Case) cycle with the condition
to make a correctly colored shape to the next cell (if we are in AM10,
then into AN10).

br,
Juuljus