Kleur toekkennen aan een klasse

[Botros]

Ik zit met het volgende probleem. Ik wil graag een kleur automatisch aan een klasse toekennen in VBA. Nu is alleen het probleem dat VBA hem niet ziet.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

With Target

Select Case .Value
Case Is = "<20"
.Interior.ColorIndex = 5
Case Is = "<70"
.Interior.ColorIndex = 1
Case Is = "<200"
.Interior.ColorIndex = 6
Case Is = "<400"
.Interior.ColorIndex = 45
Case Is = "<4000"
.Interior.ColorIndex = 3
Case Else
.Interior.ColorIndex = xlNone
End Select

End With


End Sub


Wat gaat er hier fout?

 

[Roncancio]

Je moet de = en de aanhalingstekens weghalen.
Dus:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

With Target

Select Case .Value
Case Is < 20
.Interior.ColorIndex = 5
Case Is < 70
.Interior.ColorIndex = 1
Case Is < 200
.Interior.ColorIndex = 6
Case Is < 400
.Interior.ColorIndex = 45
Case Is < 4000
.Interior.ColorIndex = 3
Case Else
.Interior.ColorIndex = xlNone
End Select

End With


End Sub

Met vriendelijke groet,


Roncancio

 

[snb]

of

Private Sub Worksheet_Change(ByVal Target As Range)
  Target.Interior.ColorIndex = Switch(Target < 20, 5, Target < 70, 1, Target < 200, 6, Target < 400, 45, Target < 4000, 3)
End Sub

 

[Botros]

Hartelijk bedankt! :thumb:

 

[Botros]

Nu loop ik alleen tegen een andere kwestie aan.

Als er bijv. een getalswaarde is ingevuld in een veld en deze wordt verwijderd dan veranderd de achtergronds kleur niet mee? Hoe los ik dit op?

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
  Target.Interior.ColorIndex = Switch(target="",0,Target < 20, 5, Target < 70, 1, Target < 200, 6, Target < 400, 45, Target < 4000, 3)
End Sub

 

[Botros]

Dank u!:thumb: