Zellen färben
07.09.2020 14:29:23
Andre
Ich habe mal eine Frage was ist an diesen Code falsch.
In Spalte O steht eine Formel die mir das gewünschte Ergebnis aus gibt.
Leider färben sich die Zellen nicht.
Bestätige ich die Formel mit ENTER färben sich die Zellen.
Woran liegt das muss ich noch was hinzufügen bei diesen Code.
ach ja hier die Formel die Spalte O steht.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
Dim bytColor As Byte
' Bereich der überwacht wird
Set Target = Intersect(Target, Range("O4:O300"))
If Target Is Nothing Then Exit Sub
For Each rngCell In Target
Select Case rngCell.Value 'Wert in Großbuchstaben umwandeln
Case "Erledigt"
bytColor = 4
Case "In Arbeit"
bytColor = 6
Case Else
bytColor = 0 ' keine Farbe
End Select
Range(Cells(Target.Row, 2), Cells(Target.Row, 15)).Interior.ColorIndex = bytColor 'Spalte A und _
B
Next rngCell
End Sub
Anzeige