Sætte et kryds i en celle på baggrund af baggrundsfarven

prøv at afslutte nogen af dine åbne spørgsmål.

http://www.eksperten.dk/point.phtml?navn=thth

kabbak ...Har lige "Ryddet lidt op" ... Håber det ændre billedet ...

Jeg skal huske at lukke or svare ... Takker for reminderen ...

der er flere der trænger til at blive ryddet op i , men du får en ledetråd

Indsæt et modul, og sæt denne funktion i

Function ColorMark(rRange As Range, Farve As String) As String
    Application.Volatile
    Select Case UCase(Farve)
    Case "RØD"
        If rRange.Interior.ColorIndex = 3 Then
            ColorMark = "X"
        End If
        Case "GUL"
        If rRange.Interior.ColorIndex = 6 Or rRange.Interior.ColorIndex = 27 Then
          ColorMark = "X"
        End If
        ' her kan sættes flere farver ind med Case "FARVE", husk altid at skrive det med stort
        Case Else
        ColorMark = ""
        End Select
 
End Function

Kaldes med =ColorMark(A2;"rød") i B2

kabbak - Takker og smid lige et svar

et svar ;-))