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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen