Zellen Formatieren

Private Sub CommandButton3_Click()
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("R")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If RaBereich Is Nothing Then Exit Sub
For Each RaZelle In RaBereich
With RaZelle
Select Case UCase(.Value) ' UMWANDLUNG DER Eingabe in Großbuchstaben
Case "GREEN"
.Interior.ColorIndex = 4
.Font.ColorIndex = 1
Case "RED"
.Interior.ColorIndex = 3
.Font.ColorIndex = 1
Case "YELLOW"
.Interior.ColorIndex = 6
.Font.ColorIndex = 1
Case "BLUE"
.Interior.ColorIndex = 5
.Font.ColorIndex = 1
End Select
End With
Next RaZelle
Set RaBereich = Nothing
End Sub