Macro starten als cel in bereik wordt gewijzigd

[nmeijer]

Goedemorgen,

Ik ben opzoek naar de code die mij met het volgende kan helpen:
Ik heb een bestandje waar een macro gestart moet worden zodra er een cel in de kolomen B tot D wordt aangepast, is dat mogelijk?

Bvd,

Niels

 

[AlexCEL]

Probeer dit stukje code eens:

Sub Worksheet_Change(ByVal Target As Range)
    Dim WatchRange As Range
    Dim IntersectRange As Range
    Set WatchRange = Range("B:D")
    Set IntersectRange = Intersect(Target, WatchRange)
    If IntersectRange Is Nothing Then
        'Doe niets!
    Else
        Call MijnMacro 'Wijzig naar eigen inzicht...
    End If
End Sub

 

[nmeijer]

dankje

 

[spaarie]

Ik zou ook ondervangen bij een selectie groter dan 1 cel...

Private Sub Worksheet_Change(ByVal Target As Range)
    [b]If Target.Cells.Count > 1 Then Exit Sub[/b]
    If Not Intersect(Target, Range("B:D")) Is Nothing Then
        Exit Sub
    Else
        'jouw macro
    End If
End Sub

of nog korter:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Or Not Intersect(Target, Range("B:D")) Is Nothing Then
        Exit Sub
    Else
        'jouw macro
    End If
End Sub