Zeitstempel mit Username Ausgabe

Ich war bisher immer nur stiller "Mitleser", bei vielen VBA Codes und Excel Problemen, aber nun komme ich nicht mehr weiter bzw. finde nicht die passende Lösung. :D
Wir haben eine Liste mit verschiedenen Artikel die ein Kürzel erhalten/haben und damit wir sehen können wer die Zeile zuletzt bearbeitet/geändert hat benötigen wir ein Worksheet_Change Code.
Code sollte sobald in Spalte N / Column 14 bei händischer Eingabe, aber auch bei Copy&Paste immer den Timestamp in Spalte X/Column 24 wiedergeben, ohne zwischen Spalte O und W etwas zu verändern.
Von Spalte I:W werden Formel kopiert.
Hier auch noch eine Beispielmappe (hoffe man kann damit etwas anfangen)
https://www.herber.de/bbs/user/150229.xlsx
Folgende Varianten haben funktioniert, allerdings haben sie immer ein Problem.
1. Code - wenn in Spalte N etwas eingetragen wurde, gab es den Timestamp von S:AH, obwohl Target.Offset ja auf (0,10) eingestellt ist.


Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Tabelle5.Range("N:N")) Is Nothing Then Exit Sub
Else
Target.Offset(0, 10).Value = (Environ("username") & " - " & Format(Now, "dd.mm.yy hh:mm:ss"))
End If
End Sub

2. Code - funktioniert nur wenn man in der Spalte N (Column.14) händisch etwas einträgt, sobald copy&paste verwendet wird erscheint es nur beim ersten copy&paste.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Target.Column = 14 Then
Cells(Target.Row, 24) = IIf(Target = "", "", Environ("username") & " - " & Format(Now, "dd.mm.yy hh:mm:ss"))
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim rngZelle As Range For Each rngZelle In Target If rngZelle.Column = 14 Then rngZelle.Offset(0, 10) = _ IIf(rngZelle = "", "", Environ("username") & " - " & Format(Now, "dd.mm.yy hh:mm:ss")) Next rngZelle End Sub

Sub Worksheet_Change(ByVal Target As Range) Set Target = Target.Range("A1") 'nur die oberste linkste Zelle vom Target Application.EnableEvents = False If Not Intersect(Target, Range("N:N")) Is Nothing Then Target.Offset(0, 10).Value = (Environ("username") & " - " & Format(Now, "dd.mm.yy hh:mm:ss")) End If Application.EnableEvents = True End Sub

Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("N:N")) Is Nothing Then Intersect(Target.EntireRow, Range("X:X")) = (Environ("username") & " - " & Format(Now, "dd.mm.yy hh:mm:ss")) End If Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread