ich möchte gerne das in Spalte L2 bis L... alle zahlen von
3,0 bis 3,9 Gelb
4,0 bis 4,9 Orange
Alles ab 5,0 ROT
sollen die Zellen gefüllt werden.
Wäre das über VBA mäglich?
Gruß Roland
Dim zelle As Range
For Each zelle In Range("L2:L" & Cells(Rows.Count, 12).End(xlUp).Row)
Select Case zelle.Value
Case 3 To 3.9: zelle.Interior.ColorIndex = 6
Case 4 To 4.9: zelle.Interior.ColorIndex = 44
Case Is > 5: zelle.Interior.ColorIndex = 3
Case Else:: zelle.Interior.ColorIndex = xlNone
End Select
Next
Dim zelle As Range
For Each zelle In Range("L2:L" & Cells(Rows.Count, 12).End(xlUp).Row)
Select Case zelle.Value
Case Is = 5: zelle.Interior.ColorIndex = 3
End Select
Next
K | L | |
3 | Wahr | '3.9 |
verwendete Formeln | |||
Zelle | Formel | Bereich | R1C1 für Add In |
K3 | =ISTTEXT(L3) | =ISTEXT(RC[1]) |