range change event

[nobody11]

ik heb de volgende code momenteel geschreven/gevonden:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
MsgBox (Target.Address)
         
     End If
    
End Sub

ik zou hier graag ook de range aan C3:C7 toevoegen.. maar dit lukt me niet.. ook niet indien ik volgende codes gebruik:

If Not Intersect(Target, Range("A1:A10"), range("C3:C7") Is Nothing Then

If Not Intersect(Target, Range("A1,A2,A3,A4,..,C3,C4,C5,C6,C7") Is Nothing Then

(nb: de tweede code wordt voorgeschreven door ozgrid.. mr dit lukt niet.. iemandd ie een oplossing weet?

 

[nobody11]

ik heb momenteel dit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A1:B3", "C3:C7")) Is Nothing Then
MsgBox (Target.Address)
         
     End If
    
End Sub

het probleem nu is dat als ik bv A4 of A5 of C2 of C1 aanpas, dat ik ook een msgbox krijg.. wat doe ik fout?

 

[nobody11]

ik heb momenteel dit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A1:B3", "C3:C7")) Is Nothing Then
MsgBox (Target.Address)
         
     End If
    
End Sub

het probleem nu is dat als ik bv A4 of A5 of C2 of C1 aanpas, dat ik ook een msgbox krijg.. wat doe ik fout?

deze mag dicht.. heb het antwoord reeds met dank aan warm bakkertje in de andere thread!