ich hätte eine ganz kurze Frage zum Einfärben von Zellen.
Einen Code zum Einfärben von Zellen, wenn bestimmte Zeichen/Werte in einem Tabellenblatt auftauchen habe ich schon; diese werden bei "Change" eingefärbt.
Nun die Frage: derzeit habe ich im Case Else stehen, dass die Zelle, wenn die Werte aus dem Case nicht enthalten sind, den Farbindex = xlColorIndexNone bekommen. Dabei werden leider zuvor hinterlegte Felder auch auch farblos umgefärbt.
Wie kann ich das Umgehen? Ich hätte gerne für den Case Else einen Code, dass die ursprüngliche Formatierung bzw. Zellfärbung beibehalten wird.
Unterbei der aktuell verwendete Code.
Danke vorab!
Dim Zelle As Range, Bereich As Range
For Each Zelle In Target
Select Case Zelle.Value
Case "a", "b", "c"
Zelle.Interior.Color = RGB(238, 149, 114)
Case Else
Zelle.Interior.ColorIndex = xlColorIndexNone
End Select
Next Zelle
End Sub