Office: Problem mit genauer Zeilen definition bei Aktion

In folgendem Code welcher in der relevanten "Tabelle1" ausgeführt wird:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim objCell As Range, aa As Range
    If Not Intersect(Target, Range("F3:I21")) Is Nothing Then
        Me.Protect Password:="lean", UserInterfaceOnly:=True
        aa = ActiveCell.Row
        For Each objCell In Target
            If Not Intersect(objCell, Range("F3:I21")) Is Nothing Then
                objCell.Locked = objCell.Text <> ""
                ActiveSheet.Cells(aa, 12).Value = Now
            End If
        Next
    End If
End Sub

Es soll die geänderte Zelle gesperrt werden wenn sich der inhalt ändert, was soweit auch funktioniert. Nun soll aber das Datum dieser Änderung noch ein paar Spalten weiter rechts protokolliert werden.
Wenn ich cursor rechts oder links- oder TAB benutze bleibt die Zeile OK des Datum Eintrages OK. Sobald ich aber Enter drücke verändere ich ja die aktive Celle eins runter, sowie bei cursor hoch eins hoch etc. wie kann ich das ausschliessen?? ansonsten ist der Code perfekt. (Auch das "rückgängig machen" (Undo) der Aktion ist mit diesem Code ausgeschlossen)

Vielen Dank

 

Hallo,

und was macht folgender Code? Ist der für Dich zufrieden stellend?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim objCell As Range, ZielZeile As Long
    If Not Intersect(Target, Range("F3:I21")) Is Nothing Then
        Me.Protect Password:="lean", UserInterfaceOnly:=True
        ZielZeile = Target.Row
        For Each objCell In Target
            If Not Intersect(objCell, Range("F3:I21")) Is Nothing Then
                objCell.Locked = objCell.Text <> ""
                ActiveSheet.Cells(ZielZeile, 12).Value = Now
            End If
        Next
    End If
End Sub

 

Wunderbar!!!!

Mein Fehler ist mir nun bewust!

Perfekt!!

Im jedemfall Vielen Dank!!!!