waardeverandering v/cel op voorwaarde

[simal]

In een cel zou bijvoorbeeld een waarde 7 moeten komen indien de cel ernaast in back color red veranderd.
Kan dat ? VBA of conditional formatting ?
dank

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
  if target.[COLOR="Red"]interior.[/COLOR]backcolor=vbred then target.offset(,1).value=7
sub

 

[simal]

Target. backcolor wordt niet vermeld in de lijst van Target. en geeft dus een foutmelding.
Het werkt zonder kleur aanduiding = Target.offset(, 1) = 7
Hoe kan ik dat veranderen ?
Dank
Groeten

 

[snb]

Vorige suggestie aangepast.

 

[Wigi]

Vorige suggestie aangepast.

Het moet ook nog Color ipv Backcolor zijn.

simal:

het wijzigen van een kleurtje in een cel kan je niet ondervangen in een event zoals een worksheet_change. Enkel als ook de inhoud van de cel wijzigt zal bovenstaande code van Snb (met mijn verbetering) een 7 zetten in de cel ernaast.

Wigi

 

[simal]

Het werkt maar wel met worksheet_SelectionChange
Dank voor de hulp
en beste groeten

 

[Wigi]

Het werkt maar wel met worksheet_SelectionChange

Inderdaad, dat werkt, maar echt efficiënt is zoiets niet vind ik. Maar als het voor jou goed is, dan is het ook goed voor ons :thumb:

 

[simal]

Juist ! maar geschikt voor mijn doel.
Hoop van harte nog op jullie steun te mogen rekenen.
Dank en Beste groeten