Guten Morgen,

ich habe ein kleines Problem, dass ich aufgrund meiner eher marginalen VBA Kenntnisse nicht gelöst bekomme ;).
In der hochgeladenen Datei funktioniert grundsätzlich das Einfärben der angeklickten Zelle per Makro. Erneutes Klicken nimmt die Farbe wieder weg.
Soweit so gut. Allerdings funktioniert es nur in den Zellen mit weißen Hintergrund (also nur bei jeder zweiten Zeile). Bei den farbigen Zellen funktioniert es nicht ....
Wahrscheinlich nur eine Kleinigkeit - aber ich sehe es nicht ....
Es würde mich freuen, wenn mir mal jemand auf die Sprünge hilft :).

Gruß
Klaus

https://www.herber.de/bbs/user/172206.xlsx

PS:

Falls der VBA Code fehlt, hier nochmal extra:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set changeRange = Range("B3:L16")
intColor = vbRed
If Not Application.Intersect(changeRange, Target) Is Nothing Then
With Target.Interior
.Color = IIf(.Color = intColor, xlNone, intColor)
End With
End If
End Sub