Office: VBA: Problem beim Änderungsdatums in der aktive Zelle

Hallo an alle Tüftler...

Da ich durch mein altes thread nun mehrere Lösungsansätze gewonnen habe möchte ich nun zur Optimierung ein neues eröffnen.
Mein Wunsch ist nach wie vor ein Änderungsdatum in der Aktiven Zeile in eine bestimmte zelle einzutragen.
Dafür haben sich jetzt 2 Lösungen mit jeweils einem Problem ergeben:

1.

Code:

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim R, C, P
    If Intersect(Target, Range("A4:Z500")) _
    Is Nothing Then Exit Sub
    Application.EnableEvents = False
        R = Target.Rows.Count
        P = ActiveCell.Row - 1
      For C = 1 To R
    P = P + 1
    On Error GoTo ERRORHANDLER
    Cells(P, 27).Value = Date
    Next
    Application.EnableEvents = True
ERRORHANDLER:
    End Sub

Hierbei passiert es aber, dasss wenn ich in zelle A1 etwas eintrage und dannach den Cursor direkt in Zelle A2 setzte, wird für das Änderungsdatum die Zeile 2 angesprochen (statt der ersten)

2.

Code:

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim S 
If Intersect(Target, Range("A4:Z500")) _ 
Is Nothing Then Exit Sub 
Application.EnableEvents = False 
S = ActiveCell.Column 
On Error GoTo ERRORHANDLER 
Target.Cells(1).Offset(0, 27 - S).Value = Date
Application.EnableEvents = True 
ERRORHANDLER: 
End Sub 

Hierbei allerding springt er beim kopieren mehrerer Zellen in die falsche Zeile.
dafür habe ich von miriki schon einen Tip bekommen:

aber ich habe das bisher auch noch nicht hinbekommen und weiß auch nicht, ob es möglich ist, mein "s" so zu definieren...

Würde mich sehr über eure Hilfe und Tips freuen...auch darüber, welcher Ansatz der Zuverlässigere ist...

LG

 

Hallo!

Als Gedanke (ungetestet):
Das Datum soll immer in Spalte Z, oder?
Dann verzichte doch gänzlich auf S und trage hiermit ein:

Cells(Target.Cells(1).Row, 26).Value = Date