Farve en del af række betinget af hvilken status cellen har
Jeg ønsker at give en del af en række en bestemt farve efter hvad status en celle i samme område får.Jeg kan ikke bruge Betinget Formatering, da jeg har mere en 3 muligheder.
Jeg har indtil videre lavet følgende, men det tager kun det enkelte felt og som sagt så ønsker jeg det ændre farven i felterne område A til I :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
Dim c As Range
Dim tmp() As Variant
With Worksheets("Ny Opgave")
With Target
Select Case UCase(.Value)
Case "NY"
.Interior.ColorIndex = 6
Case "I GANG"
.Interior.ColorIndex = 43
Case "OBSERVATION"
.Interior.ColorIndex = 8
Case "SLUT"
.Interior.ColorIndex = 46
Case "ARKIV"
.Interior.ColorIndex = 46
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
End With
End Sub
