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

Hallo Raphael,
willkommen im Forum!
Du musst sicherstellen, entweder dass dein Target nur eine Zelle hat:


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

(Da Worksheet_Change nur in der eigenen Worksheet wirkt, ist ein Verweis auf "Tabelle5" nicht notwendig, sogar Fehlerquelle, falls der Blattname geändert wird)
oder dass für alle Zeilen der eingefügten Werte den Eintrag erfolgt:


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

Da Du Daten reinschreibst, wird der Event Change wieder aufgelöst, falls Du kein Event-Blocker verwendest (Application.EnableEvents = False).
Falltrick: Falls Du dazwischen einen Exit Sub verwendest, werden die Events nicht erneut zugelassen.
VG
Yal

Forumthread: Zeitstempel mit Username Ausgabe

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zeitstempel mit Benutzername in Excel erstellen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)