Farbe einer Zelle ändern
09.03.2023 13:40:15
Bernie
ich habe eine Frage bezüglich des Abänderns der Farbe einer bestimmten Zelle.
Ich habe folgendes Makro bereits fertig:
Sub Sprung_Zelle_H1()
ActiveSheet.Cells(1, 8).Select
Dim zelle As Range
Range("H1").Select
With Selection.Interior
'Neue Farbe
'.Color = RGB(153, 204, 255)
'Ursprungfarbe
.Color = RGB(217, 225, 242)
Range("H1").Activate
End With
End Sub
Nun möchte ich folgendes erreichen:
Mit dem Makro wird eine bestimmte Zelle aktiviert und die Farbe geändert.
Nun bräuchte ich einen Zusatz, wenn ich die Zelle verlasse, zu einer anderen Zelle springe oder auch das Arbeitsblatt verlasse.
Dann soll die Farbe wieder in die Ursprungfarbe zurückwechseln.
Kann mir bitte jemand das Makro entsprechend ergänzen?
Danke
Gruß
Bernie