Wert einer Zelle ändern bei Bedingung VBA

[Flotter Feger]

Hallo,

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("AL:AL")) Is Nothing Then
    If IsDate(Target.Value) Then ActiveSheet.Cells(Target.Row, 2) = "X"
End If

End Sub