Achtergrondkleur wijzigen van de actieve cel

[Sytse1]

In een beveiligd werkblad moeten een aantal cellen worden ingevuld.
Het is soms lastig om te zien welke cel geselecteerd is.
Om de gebruiker te helpen zou het eenvoudig zijn om de achtergrondkleur van de actieve cel tijdelijk te wijzigen.
Zodra de actieve cel verlaten wordt moet deze de ingestelde kleur weer krijgen. (In dit geval lichtgeel)
Is het ook mogelijk om dit voor het totale workbook in 1 keer in te stellen en niet voor elk werkblad apart?
Er zijn namelijk 40 werkbladen in het workbook.
Wie kan mij de VBA oplossing geven?
Vast bij voorbaat bedankt voor het meedenken.
Sytse

 

[JeanPaul28]

hier een voorbeeld

 

[Sytse1]

Jean Paul bedankt.
Het werkt uitstekend.
Maar ik krijg nu wat anders de achtergrond kleur verdwijnt en bij mijn printvoorbeeld is alles wit.
Mijn printvoorbeeld krijg ik als volgt.

 Range("L4:O73").Select
    Selection.PrintOut Copies:=1, Preview:=True, Collate:=True
    Range("B5").Select

Wellicht is het eenvoudiger om een tijdelijke, b.v. blauwe rand om de actieve cel te zetten?
groet,
Sytse

 

[sylvester-ponte]

met voorwaardelijke opmaak en macro:
in cel a1 wordt in het voorbeeld door de macro de rij en kolom van de active cel gezet.
en daar reageert de voorwaardelijke opmaak op (binnen het vierkant)
zie voorbeeld:

 

[Sytse1]

Ik heb het zo opgelost
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
' Clear the color of all the cells
Cells.Interior.ColorIndex = 2
With Target
' Highlight the active cell
Target.Interior.ColorIndex = 6
End With
Application.ScreenUpdating = True

 

[sylvester-ponte]

Sitse1, dat betekend dat je oorspronkelijke achtergrond kleur overal "kleur 2" is
met voorwaardelijke opmaak komt bij het verlaten van de cel de oorspronkelijke kleur weer terug ook als hij bv groen was.