Hej hej

Gå in i editorn och dubbelklicka på det bladet som du vill ska kunna känna av vilka rader som ska färga. Lägg på nedan kod. Ändra rangen "C1:C100" till den rangen där du vill kunna skriva dina siffror. Lägg märke till att jag för enkelhetens skulle valt att använda excels egna färgkodning,. Du får helt enkelt testa och se vilka färger du får ut med att skriva siffor i cellerna :). Jag har inte heller skapat en felhantering för vad som ska hända om andra tecken än siffor skrivs till cellen, isåfall så får du körfel. 

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim ColorChangingCells As Range

    Dim myRow As Integer

    Dim myColorValue As Integer

  'Denna range är rangen där det går att skriva siffror för att färga raden

    Set ColorChangingCells = Range("C1:C100")

    If Not Application.Intersect(ColorChangingCells, Range(Target.Address)) _

           Is Nothing Then

            myRow = Target.row

            myColorValue = Target.Value

            On Error GoTo handler

            Rows(myRow & ":" & myRow).Interior.ColorIndex = myColorValue

handler:

            If Err.Number = 9 Then

                MsgBox myColorValue & " är ingen färgkod"

            End If

    End If

End Sub

Mvh

Christian