Opgelost Message box bij wijziging rij 2 onder voorwaarden van inhoud rij 3

[PietPeter]

Goedendag,

Ik zou graag een Message Box willen laten tonen wanneer er in rij 2 een wijziging wordt gedaan aan een cel op voorwaarde dat de cel daar direct onder in rij 3 als inhoud '1' bevat.

Bijgevoegd een versimpeld voorbeeld waarbij een wijziging van cel B2 een message box moet triggeren (B3 is namelijk '1') maar bij een wijziging van cel E2 niet omdat E3 namelijk geen '1' is maar '0'.

Hierbij heb ik al een stukje VB code toegevoegd waarin een message box verschijnt wanneer in dit geval een wijziging in B2 wordt gedaan, maar hier wil ik graag bovenstaande voorwaarde aan toevoegen waarbij dit geldt voor de hele rij.

Is dit mogelijk?

Alvast bedankt.
Met vriendelijke groet,
Piet Peter

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Rows(2)) Is Nothing Then
        If Target.Offset(1) = 1 Then
            MsgBox "Het aantal is " & Target, vbOKOnly, "Sheet Change"
        End If
    End If
End Sub

 

[PietPeter]

Bedankt! Hiermee kan ik verder