gibt es die Möglichkeit bei Excel in einer Spalte mehr als 3 bedingte Formartierungen anzuwenden?
Gruß
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then 'Bereich anpassen
Select Case Target.Value
Case "50": Target.Interior.ColorIndex = 3 'Farbe anpassen
Case "60": Target.Interior.ColorIndex = 5 'Farbe anpassen
Case "65": Target.Interior.ColorIndex = 7 'Farbe anpassen
Case "70": Target.Interior.ColorIndex = 9 'Farbe anpassen
Case "75": Target.Interior.ColorIndex = 11 'Farbe anpassen
Case "80": Target.Interior.ColorIndex = 13 'Farbe anpassen
Case Else: Target.Interior.ColorIndex = xlNone 'keine Farbe
End Select
End If
End Sub
Die Farb-Codierung muss Du Dir dann anpassen und den Bereich, in dem die Zahlen stehen anpassen.
Private Sub Workbook_Open()
Dim c As Range
For Each c In Range("C3:C" & Cells(Rows.Count, 3).End(xlUp).Row)
Select Case c.Value
Case "50": c.Interior.ColorIndex = 6 'Farbe anpassen
Case "60": c.Interior.ColorIndex = 3 'Farbe anpassen
Case "65": c.Interior.ColorIndex = 5 'Farbe anpassen
Case "70": c.Interior.ColorIndex = 4 'Farbe anpassen
Case "75": c.Interior.ColorIndex = 53 'Farbe anpassen
Case "80": c.Interior.ColorIndex = 7 'Farbe anpassen
Case "85": c.Interior.ColorIndex = 8 'Farbe anpassen
Case "90": c.Interior.ColorIndex = 15 'Farbe anpassen
Case "95": c.Interior.ColorIndex = 17 'Farbe anpassen
Case "100": c.Interior.ColorIndex = 22 'Farbe anpassen
Case Else: c.Interior.ColorIndex = xlNone 'keine Farbe
End Select
Next
End Sub