Lijst met gekleurde cellen

[thedorst]

Situatie

Ik wil in een lijst diverse cellen een kleur geven. Op een andere plaats wil ik uit deze lijst selecteren en vervolgens ook de kleur zien. Dit lukt niet.
Toegevoegd een kleine toelichting

Wie kan mij helpenBekijk bijlage Map3.xls

 

[Cobbe]

Ik vrees dat dat niet gaat lukken zonder VBA, als de kleuren niet zijn gecreëerd via Voorwaardelijke Opmaak.
Heb u een aanzet gegeven hoe het zou kunnen lukken via VBA.
De kleur past zich pas aan als je de cel(keuze) verlaat.

 

[thedorst]

Bedankt Dit lijkt idd te werken Ik ga er mee aan de gang

 

[thedorst]

in vba deze code plaatsen

De code die hieronder staat moet je in VBA zetten dan kan de cel kleur aangepast worden

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To Range("AL900").End(xlUp).Row
Application.Volatile
For x = 2 To Range("R900").End(xlUp).Row
Application.Volatile
If Cells(x, 18) = Cells(i, 38) Then
Cells(x, 18).Font.ColorIndex = Cells(i, 38).Font.ColorIndex
End If
Next
Next
End Sub