Afhankelijk kleur tekst in cel andere cel automatisch tekst invullen

[BarryVdW]

Beste,

Is het mogelijk om een omgekeerde voorwaardelijke opmaak te doen?
Wanneer in een cel in kolom C er groene of rode tekst staat, dient er in dezelfde cel in kolom G "NOK" in rood lettertype te komen,
wanneer in een cel in kolom C er zwarte tekst staat, dient er in dezelfde cel in kolom G "OK" in zwart lettertype te komen.

Met vriendelijke groeten,
Barry

 

[VenA]

Hoe komen de kleurtjes in kolom C tot stand?

 

[BarryVdW]

Dit zit in een VB macro tijdens een import.
De kleurtjes kan ik standaard met een voorwaardelijke opmaak, maar weet niet hoe je daar een tekst mee een in een kolom kan krijgen.

 

[sylvester-ponte]

als je zo iets : in kolom G gebruikt om kolom C uit te tezen.
dan moet je de voorwaardelijke opmaak in Kolom G zelf maken

Function NokOk(R As Range)
    If R = "" Then NokOk = "": Exit Function
    NokOk = "NVT"
    If R.Font.Color = 0 Then NokOk = "OK": Exit Function
    If R.Font.Color = 5287936 Then NokOk = "NOK": Exit Function
    If R.Font.Color = 255 Then NokOk = "NOK": Exit Function
End Function

 

[VenA]

Dit zit in een VB macro tijdens een import.

Waar is deze macro te vinden?