Beste

Graag zou ik de cel geel gekleurd zien als deze actief is.
Wanneer ik een andere cel actief maak, moet de vorige cel terug wit zijn en deze actieve cel terug geel zijn.

Kan er mij iemand hier mee helpen om dit voor elkaar te krijgen.

Groetjes Danny

Generalbongo, (welkom hier) Zo fout zat je niet met je conditional format (voorwaardelijke opmaak)! Je kan het helaas niet aansturen op de methode die jij waarschijnlijk in gedachten had (gewoon via het menu). Het bovenstaande codeblokje maakt namelijk ook gebruik van de voorwaardelijke opmaak...With Range(Target.Address) 'Rows(Target.Row)
    .FormatConditions.Add Type:=2, Formula1:="TRUE"
    .FormatConditions(1).Interior.ColorIndex = iColor
End With
Maar dat doet tie alleen maar als je van cel veranderd. Vandaar dat je d'r VBA bij nodig hebt. De code gooit dus steeds van de hele sheet ALLE voorwaardelijke opmaken weg, om daarna alleen 'de gekleurde cel' over te kunnen houden.
Dit is ook de reden waarom de waarschuwing aan 't begin van het codeblokje staat....'// Note: Don't use if you have conditional
'// formatting that you want to keep
Er zijn trouwens op internet ook nog wel andere methodes te vinden die de actieve cel kleuren. Maar da's een kwestie van zoeken.

Groet, Leo

Dit

Misschien kun je dit gebruiken kun je aan of uit zetten?

Pierre

Danny,

als je "True" zonder aanhalingstekens schrijft zal het in elke Excelversie (frans, nederlands, engels, ...) werken
    .FormatConditions.Add Type:=2, Formula1:=True
NB:
Bovenstaande methode is nuttig als er al kleuren op je werkblad zijn. Anders is het wel een omweg, want je kan net zo goed de "echte" kleur laten wisselen in plaats van de voorwaardelijke kleur. Bovendien kunnen de kleuren dan vrij makkelijk "hersteld" worden: dat vraagt natuurlijk meer code.

Je hebt onrechtstreeks op mijn vragen geantwoord (zonder het te weten? zag je die vragen wel?). Je gebruikte geen voorwaardelijke opmaak en je wil inderdaad rijen en kolommen kleuren...

Je reageerde niet op

Er is bovendien een probleem met de meeste methodes: "undo" werkt niet meer.

Persoonlijk vind ik de mogelijkheid "ongedaan maken" absoluut noodzakelijk. Elke stommiteit moet kunnen "teruggedraaid" worden... Probeer eens effe het volgende: selecteer een cel, tijp iets, probeer ongedaan te maken  lukt niet meer, als je bovenstaande code geïnstalleerd hebt.
Hier zijn verscheidene oplossingen voor mogelijk. De allersimpelste met voorwaardelijke opmaak is de volgende.

1. Selecteer bereik waarvan je rijen en kolommen wil kleuren.
2. Voorwaardelijke opmaak - formule= =OF(RIJ()=CEL("row");KOLOM()=CEL("col"))
3. Code in sheetmodule: dit is wel heeeel simpel.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End SubVoor mensen die geen code mogen/kunnen gebruiken (op hun werk) Het fantastische is dat de code eigenlijk niet eens nodig is. Elke keer je bereik berekend wordt, zal je het correcte resultaat zien. Je kan gewoon functietoets F9 drukken.

zonnige weekendgroet,
Erik

Uw formule voor in voorwaardelijke opmaak werkt te samen met de code in worksheet, simpel en gemakkelijk.
bedankt hiervoor. 

Een vraagje, kan je ook een formule in voorwaardelijke opmaak zetten waarin alleen de cel gekleurd wordt

you're WELCOME, Danny :-)

enkel de cell ?
dat is eenvoudig: in plaats van OF de rij OF de kolom moeten ze ALLEBEI gelijk zijn aan de "huidige" cel, niet OF maar EN dus
=EN(RIJ()=CEL("row");KOLOM()=CEL("col"))

tot ziens,
Erik

=ADRES(RIJ();KOLOM())=CEL("address")

beste Erik
 
Bedankt voor alles
Gemakkelijk en simpel meer moet dat niet zijn hé.

Groetjes Danny