Betinget formattering med mere end 3 betingelser

VBA - thats IT

Det var jeg nu godt klar over ... men løkkerutiner i excel er ikke min stærke side :-(

Så lidt mere hjælp er at foretrække :-)

Prøv at sende en fil, der er repræsentativ - & evt. nr/farve

Eksempel sendt

Const startRække = 2
Const slutRække = 26
Const startKolonne = "E"
Const slutKolonne = "BD"
Const farverStartRække = 28
Sub FarveLæg()
Dim område As Range, bogstavNr
    Application.ScreenUpdating = False

    Set område = Range(startKolonne + CStr(startRække) & ":" & slutKolonne & CStr(slutRække))
    For Each celle In område.Cells
        If celle.Value <> "" Then
            bogstavNr = Asc(celle) - 65
            farveNr = Cells(farverStartRække + bogstavNr, 1).Interior.ColorIndex
           
            celle.Interior.ColorIndex = farveNr
        End If
    Next celle
   
    Application.ScreenUpdating = True
End Sub