Zellenfärbung rückgängig
07.11.2016 11:27:07
Fynn
ich benutze für eine Excel-Tabelle den folgenden Befehl:
Option Explicit
Public AlterWert As Variant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
AlterWert = Target
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target AlterWert Then Target.Interior.ColorIndex = 6
End Sub
Ich möchte diesen Befehl gerne so anpassen, dass das Feld sich wieder zurücksetzt was die Farbe angeht, sobald der Wert in dem Feld dem Wert entspricht, der vor der Änderung im Feld stand.
Um ein kleines Beispiel zu geben:
Ich habe ein leeres Feld und wenn ich einen Wert eingebe, dann wird es gelb ausgefüllt. Wenn ich nun aber das Feld wieder leere, also den Wert herausnehme, dann bleibt das Feld gelb. Ich hätte es aber gerne so, dass das Feld dann wieder die ursprüngliche Farbe annimmt, sodass ersichtlich wird das sich nichts geändert hat.