Änderung Code Select Case

Private Sub färben()
Application.ScreenUpdating = True
' Fülfarbe
' für Schrift RaZelle.Font.ColorIndex
Dim RaBereich As Range                  ' Variable für Bereich
Dim RaZelle As Range                    ' Variable für Zelle
Set RaBereich = Range("Q2:Q10000")        ' Bereich der Wirksamkeit
For Each RaZelle In RaBereich
With Range(RaZelle.Address, RaZelle.Offset(0, -16).Address)
Select Case (RaZelle.Value)
Case "Umsetzung mit 10.30"
' Füllfarbe grün
.Interior.Color = 52377
Case "keine Umsetzung möglich"
' Füllfarbe Rot
.Interior.Color = 255
Case "offen"
' Füllfarbe Gelb
.Interior.Color = 16777164
Case "Umsetzungstermin offen"
' Füllfarbe Gelb
.Interior.Color = 16777164
Case Else
' keine Füllfarbe
.Interior.ColorIndex = xlNone
End Select
End With
Next RaZelle
' ActiveSheet.protect ("Passwort")
Set RaBereich = Nothing                 ' Variable leeren
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub