Excuus voor de late reactie..
Even gekeken, kleur linken kan als volgt (zie bijlage) met een functie.
Kies ALT-F11 om naar de VBA code editor te gaan, zoek het werkblad op waar je de kleur wilt overnemen en dubbelklik.
Copy / Paste de volgende code:
Private Sub Worksheet_Calculate()
'apply cells colors from single-cell formula dependencies/links
Dim Cel As Range
Dim RefCel As Range
On Error Resume Next
For Each Cel In ActiveSheet.UsedRange
If Cel.HasFormula Then
Set RefCel = Evaluate(Mid(Cel.Formula, 2))
Cel.Interior.Color = RefCel.Interior.Color
End If
Next Cel
End Sub
Vg,
Mike