Problemen om bereik te definiëren

[Koos Voos]

Hoi,

ik heb een stukje code in VBA (Excel), dat prima werkt voor cel B4

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$4" Then
Select Case Target
Case "8"
Target.Interior.Color = vbRed
Case "4"
Target.Interior.Color = vbBlue
Case "BD"
Target.Interior.Color = vbGreen
Case "BV"
Target.Interior.Color = vbYellow
End Select
End If
End Sub

Alleen het Target.Adress zou niet cel B4 moeten zijn, maar een bereik van B4:AF15 moet hebben.
Hoe krijg ik de range hier in verwerkt ? Ik krijg het niet voor elkaar/werkend.

bij voorbaat dank
Koos

 

[Hoornvan]

Koos Voos,

Private Sub Worksheet_Change(ByVal Target As RANGE)
[COLOR="Red"]If Not Intersect(Target, RANGE("B4:F15")) Is Nothing Then[/COLOR]
[COLOR="Lime"]'If Target.Address = "$B$4" Then[/COLOR]
Select Case Target
Case "8"
Target.Interior.Color = vbRed
Case "4"
Target.Interior.Color = vbBlue
Case "BD"
Target.Interior.Color = vbGreen
Case "BV"
Target.Interior.Color = vbYellow
End Select
End If
End Sub

Volgens mij werkt dit, heb het geprobeerd.
Het regeltje wat er tussen geplaatst is heb ik uit de helpmij. (opgezocht)
Wel even het bereik aanpassen

 

[Koos Voos]

Hallo,

Ik had de code / oplossing zelf niet gevonden op helpmij.
(waarschijnlijk verkeerde zoekopdrachten gebruikt ?????)

Bij mij werkt dit ook.

Hartelijk bedankt.

Koos

 

[Hoornvan]

Koos Voos,
Graag gedaan