flere farver

fandt en løsnings.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim colorX As Integer
Dim colorHvid As Integer
Dim tempColor As Integer
Dim rk
Dim width

'set af color, hvis 'x'
colorX = 15
'set af color, hvis ikke 'x'
colorHvid = 0


' Den første celle i regneArk er (1,1) svar til A1 ... B2 svare til  Cells(1,2)
' Her løber vi fra celle (1,1) til  (1,20) med en løkke. Cells(x,y)
    For rk = 1 To 32
        tempColor = colorHvid
        If Cells(6 + rk, 1) = "x" Then
            tempColor = colorX
        End If
        For width = 1 To 12
            Cells(6 + rk, width).Interior.ColorIndex = tempColor
        Next width
    Next rk

End Sub

svar til mig selv så :D