Zellfarbe wieder auf ursprüngliche Farbe setzen
11.07.2017 10:59:48
Nati
ich habe einen Code ( der auch funktionniert), Sinn dahinter: Farbe einer Zelle ändert sich auf Gelb bei klick, danach wieder in die Ursprungsfarbe- das klappt auch. B
loß wenn ich das Sheet "verlasse" und dann wieder aktiviere, ist die letzt angeklickte Zelle immernoch gelb...
Wer kann mir helfen ?
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 2 Then Exit Sub
' Beim 1. Aufruf ist OldRange noch undefiniert
If OldRange = "" Then
OldRange = Target.Address
OldColor = Target.Interior.Color
' Setze Hintergrundfarbe der aktiven Selection auf GELB
Target.Interior.Color = RGB(255, 255, 0)
Else
' Setze alten Range auf alte Farbe
If Range(OldRange).Interior.Color = RGB(255, 255, 0) Then
Range(OldRange).Interior.Color = OldColor
End If
OldColor = Target.Interior.Color
' Merke mir aktuellen Adresse für nächsten Aufruf
OldRange = Target.Address
' Setze Hintergrundfarbe der aktiven Selection auf GELB
Target.Interior.Color = RGB(255, 255, 0)
End If
End Sub
Bin über jeden Tipp dankbar.
LG Nati