voorwaardelijk opmaak via vba op basis van waarde andere cel

[ven0minal]

Hallo, ik heb een vraag, ik wil via vba cellen een bepaalde kleur laten geven als ze dezelfde tekst bevatten als een andere cel uit een bepaalde kolom. de tekst in de cellen in deze kolom veranderen steeds en ik wil dus dat dan de voorwaarde voor opmaak ook verandert. ik heb de volgende code gevonden:

Sub Inkleuren01()
For Each cell In Range("b14:d25")
If cell.Value = ("AA") Then
With cell.Interior
.ColorIndex = 3
End With
End If
Next

For Each cell In Range("A5:A25")
If cell.Value = ("BB") Then
With cell.Interior
.ColorIndex = 5
End With
End If
Next

For Each cell In Range("A5:A25")
If cell.Value = ("") Then
With cell.Interior
.ColorIndex = 0
End With
End If
Next
End Sub

nu wil ik eigenlijk dat die "AA" en "BB" een waarde uit een andere cel is en dus dynamisch is. weet iemand hoe?

alvast bedankt, groetjes nick

 

[ven0minal]

nog even als aanvulling omdat ik denk ik niet duidelijk genoeg ben geweest:

in het gebied a1 tot d10 kunnen 40 namen ingevuld worden, hiervan kunnen namen afvallen en bijkomen

Als ik in het gebied eronder b14:f50 een naam uit een van de cellen in het bovengebied invul moet die cel groen worden, als ik iets anders dan een naam uit het bovengebied invul moet ie rood worden en als ik in een cel niks invul moet ie wit blijven.

hoop dat jullie het kunnen volgen

 

[Wigi]

Daar heb je toch geen VBA voor nodig?

Met voorwaardelijke opmaak kan je 3 voorwaarden per cel gebruiken.

Gebruik een AANTAL.ALS formule in de voorwaardelijke opmaak van de cellen om te zien of het voorkomt in $A$1:$D$10.

Wigi