cellenbereik in VBA

[Alexander86]

Hallo,

bij het programmeren in VBA ben in een worksheet en bij een change.

momenteel werk ik telkens:

If Target.Row = 9 And Target.colum = 4 then
...

ik heb nu aangeven dat wanneer cel D9 veranderd dat er iets gebeurd ...

is het ook mogelijk hele bereiken in te geven? bv wanneer een cel veranderd in D912 dat de macro dan ook wordt uitgevoerd?

momenteel moet ik altijd cel per cel ingeven voor mijn voorbeeld zou ik dan moeten ingeven:

If Target.Row = 9 And Target.colum = 4 And Target.Row = 10 And Target.colum = 4
And Target.Row = 11 And Target.colum = 4 And Target.Row = 12 And Target.colum = 4 then
...

is het mogelijk om dit in 1 keer in te geven?

mvg
Alexander

 

[Wigi]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D9:D12")) Is Nothing Then
        'de code
    End If
End Sub

Wigi