Msgbox bij invoer in cel

[erbeeee]

Is het mogelijk om een melding te krijgen, zodra iemand gegevens in een cel heeft ingevoerd?

Ik heb een werkblad met daarin een bereik met datums. In cel J4 heb ik een formule staan dat wanneer iemand een datum invoert die kleiner is dan een datum die al in dat bereik staat er "ja" uitkomt. Is de ingevoerde datum groter dan de datums die al in het bereik staan, dan komt er "nee" in cel J4 te staan.

Als iemand een datum invoert die kleiner is en er in cel J4 dus "ja" komt te staan, dan wil ik dat er een msgbox verschijnt. Nu heb ik de volgende code in het specifieke werkblad geplakt:

Private Sub Worksheet_melding()
    If Range("J4") = ("ja") Then
    MsgBox "Let op! er bestaat reeds een datum verder in de toekomst"
    End If
End Sub

En dat werkt dus niet... Heeft iemand een idee hoe (en of) dit wel voor elkaar te krijgen is? De formule geldt dus alleen voor dit werkblad en niet voor andere werkbladen

 

[leofact]

Wanneer je macro in de event(gebeurtenis)macro worksheet_change zet werkt het wel

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("J4") = ("ja") Then
        MsgBox "Let op! er bestaat reeds een datum verder in de toekomst"
    End If
End Sub

mvg leo

 

[erbeeee]

Helemaal top! Thanx voor dat extra duwtje!! :thumb:

 

[leofact]

tzijn de kleine die t doen.