macro start na verandering van 1 en-of 2 uitkomsten

[SUVERMO]

Beste forumleden,
Hoe kan men bekomen dat macro1 start als de uitkomst van C2 en/of C3 verandert
C2=ALS(C11="";B2;B2+D2)
C3=ALS(C11="";B3;B3+D3)

 

[AHulpje]

Zo:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$11" Then
        Macro1
    End If
End Sub

 

[SUVERMO]

bedankt AHulpje,
maar
dit werkt niet als C11="" en B2 of B3 wijzigt

 

[AHulpje]

Had het al gezien, was iets te snel, zo werkt het wel:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$11" Or Target.Address = "$B$2" Or Target.Address = "$B$3" Or Target.Address = "$D$2" Or Target.Address = "$D$3" Then
        Macro1
    End If
End Sub

 

[SUVERMO]

bedankt voor de oplossing
nu loopt het goed

 

[edmoor]

Of iets anders geschreven:

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address(0, 0)
        Case "C11", "B2", "B3", "D2", "D3":    Macro1
    End Select
End Sub

 

[AHulpje]

En nóg ietsje korter:

Private Sub Worksheet_Change(ByVal Target As Range)
    If InStr("C11 B2 B3 D2 D3", Target.Address(0, 0)) > 0 Then Macro1
End Sub

 

[HSV]

>0 weglaten en je hebt de wedstrijd gewonnen.

 

[edmoor]

En de spaties eruit

 

[edmoor]

Goeie :d
Extra spatie dus.

 

[JEC.]

Had de vorige post verwijderd. Gaat alleen op bij C1 volgens mij C11 wordt dan ook gevonden met instr

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
  If InStr([C11,B2:B3,D2:D3].Address, Target.Address) Then MsgBox Target.Address

  If Not Intersect(Target, [C11,B2:B3,D2:D3]) Is Nothing Then MsgBox Target.Address
End Sub