Wert einer Zelle ändern bei Bedingung VBA

[Koobcam]

Moin zusammen,

ich habe schon mehrere Sachen ausprobiert aber nichts funzt so richtig.

Ich habe zwei bestimmte Spalten in einer Tabelle. Die erste heißt "Inaktiv" und die zweite ist eine Datumsspalte.
Wenn ein Datum in einer Zelle der Datumsspalte steht soll gleichzeitig ein "X" in der gleichen Zeile in Spalte "Inaktiv" erscheinen.
Wenn also Datum in AL6 steht, dann X in B6. Ich bekomme es für eine Zeile geschrieben aber krieg es nicht hin, dass es in anderen Zeilen klappt. Also AL7 für B7 usw.
Rein theoretisch müsste ich ja mit einer Abfrage die Zelle in AL identifizieren und dann auf B übertragen...
VBA muss sein.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("AL6")) Is Nothing Then
ActiveSheet.Range("B6") = "X"

End If
End Sub

Gruß
Koobcam