Kleuren overnemen in formule van ander tabblad

[Bkamphuis]

Beste,

Zie bijlage sheet.

Ik zou graag de kleuren van tabblad ''opleidingen'' willen overnemen naar tabblad ''werknemer 1'' (de som: =Opleidingen!A4 wordt overgenomen op tabblad ''werknemer 1, ik zou graag willen dat de kleur ook overgenomen wordt)

Na tabblad ''werknemer 1'' wordt de inhoud van (bepaalde) cellen weer overgenomen in tabblad ''Overzicht1'' hier zouden opnieuw de kleuren van de cel in meegenomen moeten worden.

Is dit mogelijk?

 

[SjonR]

Deze achter tabblad "Werknemer 1":

Private Sub Worksheet_Activate()
For Each cl In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
        cl.Interior.Color = Blad3.Columns(1).Find(cl).Interior.Color
Next
End Sub

Voorwaarde is wel dat de gegevens in het tabblad ook bekend zijn in het tabblad "Opleidingen"

 

[Bkamphuis]

Sorry, dit is voor mij onduidelijk.

Wat moet ik exact doen?

 

[SjonR]

Ik heb de code nog wat aangepast:

 

[Bkamphuis]

Whoooom super gaaf.

En wat als ik nou deze formule wil veranderen zodat ook tabblad ''overzicht1'' de kleuren overneemt?

 

[emields]

en zonder code doe je het zo met VO