meerdere acties in Worksheet_change

[bkoppers]

Wie kan me helpen, waarschijnlijk is het iets heel simpels wat ik vergeet, maar ik weet het ff niet meer.
als een waarde wijzigt in een cel start er een macro, nu heb ik 2 cellen waar dat op van toepassing is, echter met mijn code werkt alleen de eerste actie.

wanneer de waarde in cel D2 wijzigt start de macro "Rij_certificaten", maar ik wil ook dat als de waarde in cel D3 wijzigt dat dan de macro "rij_charge" wordt gestart.

Private Sub Worksheet_Change(ByVal target As Range)
    If Intersect(target, Range("d2")) Is Nothing Then
        Exit Sub
        Else
        Call rij_certificaat


    If Intersect(target, Range("d3")) Is Nothing Then
        Exit Sub
        Else
        Call rij_charge
End If
End If
End Sub

alvast bedankt voor diegene die mij verteld wat ik vergeet....

mvgr. B.

 

[edmoor]

Probeer het eens zo:

Private Sub Worksheet_Change(ByVal target As Range)
    Select Case target.Address
        Case "$D$2"
            Call rij_certificaat

        Case "$D$3"
            Call rij_charge
    End Select
End Sub

 

[bkoppers]

Hartelijk dank, dit werkt prima.