Excel kenner - hulp gevraagd

[snb]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  Application.ScreenUpdating = False
  For Each cl In [E5:I47]
    cl.interior.colorindex=xlnone
    cl.interior.colorindex=choose(cl.value,40,45,3,4,34,6,7,8,44,46,2)
  Next
  Application.ScreenUpdating = True
End Sub

 

[Revdutchie]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  Application.ScreenUpdating = False
  For Each cl In [E5:I47]
    cl.interior.colorindex=xlnone
    cl.interior.colorindex=choose(cl.value,40,45,3,4,34,6,7,8,44,46,2)
  Next
  Application.ScreenUpdating = True
End Sub

Nou lekker weer, zit ik me hier kapot te bijten op een vraagstuk, ben ik blij dat ik de oplossing heb gevonden, komt snb langs

HeHe, nee hoor grapje, als ik van iemand wat leer is het van jou, alhoewel sommige oplossingen me pet te boven gaan (niet deze)

 

[DaanM]

Ieder z'n kunsten...
Ik ben echt mega blij met jullie hulp!
Nogmaals thanks...

 

[Thoralf]

Mischien een domme opmerking op de valreep:
Waarom geen validatie toegepast op de in te vullen activiteitscodes?

 

[Revdutchie]

Mischien een domme opmerking op de valreep:
Waarom geen validatie toegepast op de in te vullen activiteitscodes?

Wat zou daar het nut van zijn ? Dat worden dan heel veel pulldown boxjes als ik TS voorbeeld bekijk.