Waarde aan cel geven aanvankelijk van kleur

[MasterJ]

Ik heb een bestand waarin cellen een kleur hebben nu wil ik dat als een cel colorindex 44 heeft dat dan de waarde die in kolom A staat in deze cel word geplaatst
nu heb ik de volgende code gemaakt maar wil niet draaien

Function XopRood()
'
' XopRood Macro
'
Dim Zoekinst, Celrij, Zoek, Rij

Zoekinst = 10
Rij = 7


Zoek = Range("A" & Zoekinst).Value

Do While Zoek <> ".."

For I = 5 To 256
cel = Range(I & Zoekinst)
If cel = Interior.ColorIndex = 44 Then
Celrij = Range("A" & Zoekinst).Value
cell.Value = Celrij
End If
Next I

Zoekinst = Zoekinst + 1
Zoek = Range("Zoekinst I").Value
Loop

End Function

ik heb deze code van een vraag van een paar weken geleden maar krijg het niet voor mekaar om dit werkend te maken

met voorbaat dank

 

[Wigi]

ik heb deze code van een vraag van een paar weken geleden

Geef de link eens naar die thread.

maar krijg het niet voor mekaar om dit werkend te maken

Lijkt me logisch aangezien ik ook niet goed de code kan volgen...

Wigi