wie schon betreff beschrieben würd ich gern durch die worteingabe gelb das feld auch gelb werden lassen. entsprechend bei rot, grün und schwarz.
über bedingte formatierung kann ich ja nur den Text ändern, oder?
kann mir jemand helfen?
THX @ all
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
Select Case .Value
Case "rot"
.Interior.ColorIndex = 3
Case "grün"
.Interior.ColorIndex = 4
Case "blau"
.Interior.ColorIndex = 41
Case "schwarz"
.Interior.ColorIndex = 1
.Font.ColorIndex = 2
End Select
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
Select Case .Value
Case "rot"
.Interior.ColorIndex = 3
Case "grün"
.Interior.ColorIndex = 4
Case "blau"
.Interior.ColorIndex = 41
Case "schwarz"
.Interior.ColorIndex = 1
Case ""
.Interior.ColorIndex = xlNone
End Select
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zelle As Range
For Each zelle In Range(Target.Address)
With zelle
Select Case .Value
Case "rot"
.Interior.ColorIndex = 3
Case "grün"
.Interior.ColorIndex = 4
Case "blau"
.Interior.ColorIndex = 41
Case "schwarz"
.Interior.ColorIndex = 1
Case ""
.Interior.ColorIndex = xlNone
End Select
End With
Next zelle
End Sub