achtergrondkleur uitblanken met "target" werkt niet

[StephaanK]

ik heb een bestand waarbij voor bepaalde taken een kleur wordt toegekend. als een dergelijke taak wordt toegekend aan een persoon moet die cel dezelfde achtergrondkleur krijgen. De taken staan in een named range "taken"

op bepaalde momenten (helft van het jaar) moeten de tabellen "gekuist" worden, dwz alle achtergrondkleuren van taken in een maand moeten weg.
De opkuis (met clearcontents) wordt gedaan bij het openen van het bestand als aan een voorwaarde is voldaan (nl maandnummer > 6) .
Ik gebruik een sub worksheet_change om de wijzigingen te activeren. Deze sub gaat zien welke taak er geselecteerd werd, en op basis daarvan wordt de achtergrondkleur van de betrokken taak (in Blad1!taken) opgehaald en weergegeven.
Ik krijg echter een foutmelding dat de type niet overeenkomen als ik dit gebruik

If .Range("taken")(i) = Target Then

maar dan werkt de inkleuring van de cellen wel. als ik dit gebruik

If .Range("taken")(i) = Target (i) Then

krijg ik de foutmelding niet maar werkt de inkleuring ook niet. Ik moet ergens iets evidents over het hoofd zien.
S

 

[E v R]

Normaliter is jouw target 1 cel, bij het leegmaken "clearcontents" trigger je jouw Workbook_Sheetchange (wat niet nodig is, jouw cellen zijn immers al leeg en kleurloos) en is jouw target meerdere cellen nml.: Range("E4:z96")


of
enableevents = false net voor rngwerkschema.ClearContents en
enableevents =true net na rngwerkschema.ClearContents toevoegen

of
if target.cells.count > 1 then exit sub bovenaan in jouw Workbook_Sheetchange toevoegen

 

[StephaanK]

beide oplossingen getest, werkt perfect
bedankt
S