Makro der farver en celle hvis en given betingelse er opfyldt

Du kan lave en betinget formatering, som klarer din opgave.

Kan du ikke bruge - menu - format - conditional formatting. Men der er måske for få farve kombinationer?
Hilsen Luffe

Condition:
Cell Value - equal to - ppp

Problemet med betinget formatering er at man kun kan benytte 3 betingelser. Jeg skal bruge op til 7 betingelser

Er det kun celler i kolonne A, der skal "farveformateres" - eller..
I modsat fald, hvad er spillereglerne så?

Det er celler i kolonne F til AI

Jeg mangler stadig betingelserne - altså
Hvis indholdet i cellerne F - AI har værdien
PPP - så skal farven være x
QQQ - - " -
osv.

Hvis indeholldet i cellerne F til AI har værdierne, PG13, PG14, MG90, BG50, 0550, 0549 skal de bare have en eller anden random farve. F.eks collorIndex 30-36. Tak

Altså PG13 skal have collorindex 30, PG14 collorindex 31 osv

Rem Koden indsættes i det pågældende ark
Rem Igangsættes p.t. evt ved: Alt+F8 - Farvelægning - Afspil
Rem ========================================================
Dim koder As Variant
Public Sub FarveLægning()
    koder = Array("PG13", "PG14", "MG90", "BG50", "550", "549") 'foranstillet nul Fjernet foran tal-værdier

    ar = ActiveCell.Cells(xlLastCell).Row
   
    Set r = Range("F1:AI" + CStr(ar))
    For Each cc In r.Cells
            værdi = CStr(cc)
            If værdi <> "" Then
                farvekode = erDetFarveKode(værdi)
                If farvekode > 0 Then
                    cc.Interior.ColorIndex = farvekode
                End If
            End If
    Next
    MsgBox ("Farvesætning er afsluttet")
End Sub
Private Function erDetFarveKode(v)
    For f = 0 To UBound(koder)
        If UCase(v) = koder(f) Then
            erDetFarveKode = f + 30
            Exit Function
        End If
    Next f
    erDetFarveKode = 0
End Function

Nogen afklaring?

lukketid???