VBA: Skifte farve hvis værdi opfyldt

Formater > Betinget formatering, der kan du lave det.

Marker de celler der skal have farve,tryk  Formater > Betinget formatering

1.
Formlen er  =$H1="JBL"
sæt farven til Blå

Klik tilføj

2.
Formlen er =$H1="PG"
sæt farven til rød

klik OK

Sub farve()
'hvis liste starter i række 5 og tal er til højre for initialer
Dim i

For i = 1 To 30
If Range("h" & i + 4).Value = "JBL" Then
Range("i" & i + 4).Font.ColorIndex = 5
Else
If Range("h" & i + 4).Value = "PG" Then
Range("i" & i + 4).Font.ColorIndex = 3
Else
Range("i" & i + 4).Font.ColorIndex = 0
End If
End If
Next

End Sub

Kabbak:
Jeg kan ikk bruge "betinget formatering" da jeg allerede bruger det til at ændre baggrundsfarven på hver anden række og excel vil kun acceptere en sand værdi, så jeg bliver nødt til at bruge macro'er.

Excelent:
Jeg kan ikke få det til at virke, har du fået det til at virke hos dig?

ja, prøv lige min testversion, er lidt i tvivl om det er sådan du mener

http://pmexcelent.dk/farveinitialier.xls

Ok nu kunne jeg se hvad jeg gør galt. Det er fordi mine talværdier først starter i række J til BB.

Hvordan laver jeg en "range" der går over flere rækker?

øjeblik

Sub farve()
'hvis liste starter i række 5 og tal er til højre for initialer
Dim i

For i = 1 To 30
If Range("h" & i + 4).Value = "JBL" Then
Range("j" & i + 4 & ":" & "bb" & i + 4).Font.ColorIndex = 5
Else
If Range("h" & i + 4).Value = "PG" Then
Range("j" & i + 4 & ":" & "bb" & i + 4).Font.ColorIndex = 3
Else
Range("j" & i + 4 & ":" & "aa" & i + 4).Font.ColorIndex = 0
End If
End If
Next

End Sub

farver fra række 5 til 35
ret evt til aktuel række

'ups skrev aa i stedet for bb

Sub farve()
'hvis liste starter i række 5 og tal er til højre for initialer
Dim i

For i = 1 To 30
If Range("h" & i + 4).Value = "JBL" Then
Range("j" & i + 4 & ":" & "bb" & i + 4).Font.ColorIndex = 5
Else
If Range("h" & i + 4).Value = "PG" Then
Range("j" & i + 4 & ":" & "bb" & i + 4).Font.ColorIndex = 3
Else
Range("j" & i + 4 & ":" & "bb" & i + 4).Font.ColorIndex = 0
End If
End If
Next

End Sub

hjalp det ?

Super, det virker perfekt. Tak for hjælpen.

Hvis du smider et svar får du dine point.

ok velbekom

:-)