Cel waarde probleem

[HammerJohn]

Ik heb op een sheet deze code gebruikt, als ik de waarde in de kolom wijzig daarna op enter klik dan gebeurd er nog niets
hij veranderd alleen de cel waarde als ik weer terug keer naar de cel.
Is er een andere mogelijkheid om dit op te lossen, zodat wel direct de waarde in de cel geactiveerd wordt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Column = 5 And Target.Row > 3 Then
        If Target.Value > "0" And Cells(Target.Row, 15) = "" Then
            Cells(Target.Row, 15) = Date
        Else
            Cells(Target.Row, 15) = ""
        End If
    End If
End Sub

 

[edmoor]

Wijzig Worksheet_SelectionChange in Worksheet_Change

 

[HammerJohn]

Inderdaad opgelost
super bedankt!!!