Waarde invullen nadat opvulkleur is aangebracht

[janemmers]

Hallo

Is het mogelijk om in kolom d een waarde in te laten vullen (bv altijd waarde 2) als in dezelfde rij in kolom a een opvulkleur wordt gebruikt.
De waarde moet in kolom d moet verdwijnen als de opvulkleur in dezelfde rij in kolom a wordt verwijderd

In de bijlage zit een bestandje om het een en ander te verduidelijken

Groet
Jan

 

[Cobbe]

Zo goed?

De 2 wordt gezet als je van cel wisselt.

 

[Jack Nouws]

die van jou verwijdert de 2 niet als je de opvulling verwijdert Cobbe
Deze doet dat wel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For Each c In Range("a2:a30")
      c.Offset(0, 3) = IIf(c.Interior.ColorIndex <> xlNone, "2", "")
    Next
End Sub

 

[E v R]

en als je meteen bij kleurwijziging de twee geplaatst wilt hebben kan dat ook nog zo: zie bestandje

Overigens is andersom een stuk makkelijker

 

[Cobbe]

die van jou verwijdert de 2 niet als je de opvulling verwijdert Cobbe

Als ik naar de winkel ga om koffie en de winkelier doet me daar ongevraagd melk en suiker bij, ben ik echt niet blij.

 

[Jack Nouws]

toch is er om melk en suiker gevraagd bij de koffie

De waarde moet in kolom d moet verdwijnen als de opvulkleur in dezelfde rij in kolom a wordt verwijderd

 

[janemmers]

Dank voor het meedenken. Hier kan ik iets mee