Hoe gebruik ik de instructie intersect?

[tkint]

Beste,

Ik wil vermijden dat een waarde wordt ingevuld via een macro in de cellen die niet in de volgende bereiken vallen : B4 tot G9, J4 tot O9, B12 tot G17, J12 tot 017.
Hoe programmeer ik dat?

 

[Jack Nouws]

Zo?

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("B4:G9,J4:O9,B12:G17,J12:O17")) Is Nothing Then Exit Sub
End Sub
[/FONT]

 

[tkint]

Beste Jack,

Bedankt voor de vba-code. Eenvoudig en doeltreffend.