ich habe vor kurzem hier im Forum diesen Code von Hans gefunden um die jeweils aktive Zelle farblich hervor zu heben.
Public grng As Range
Public giOld As Integer, giNew As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
giNew = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 6
grng.Interior.ColorIndex = giOld
giOld = giNew
Set grng = Target
End Sub
Wenn ich jedoch einmal das gesamte Tabellenblatt markiere (Klick in den Kreuzungspunkt der Zeilen- und Spaltenköpfe) und danach wieder eine Zelle markiere ist diese zunächst nicht mehr farbig hinterlegt. Sobald dann eine andere Zelle gewählt wird, werden sowohl diese als auch die bisher markierte Zelle gefärbt.
Wie kann man das verhindern?
Gruß
Carsten