Zeitstempel bleibend

Hallo liebe Excelpertinnen und Excelperten,
ich hirne jetzt schon ne Stunde an einem Problem rum, das so simpel scheint, aber ich doch nicht gelöst bekomme.
Was ich erreichen will ist folgendes:
Ich habe eine Liste, mit der viele Personen arbeiten. Die Leute bearbeiten die Liste immer insofern, dass sie in die unterste freie Zeile Einträge von Spalte A bis Q machen.
Ich würde nun gerne in Spalte R bleibend das Datum und die Uhrzeit abspeichern, sobald in Spalte A ein Eintrag gemacht wurde.
Also angenommen der Kollege macht in Zeile 2588, der aktuell nächsten leeren Zeile in Zelle A2588 einen Eintrag den er mit der Tab-Taste bestätigt, dann soll in Zelle R bleibend das Datum und die Uhrzeit, und....wenn das möglich ist, am besten auch noch der Anwender abgespeichert werden, also der, der am PC angemeldet ist, eingetragen werden. Dieses Datum und Uhrzeit soll sich danach aber nicht mehr ändern. Ich habe das mit Jetzt() und Heute() probiert, aber das aktualisiert sich ja immer mit jedem öffnen der Arbeitsmappe.
Ich hab schon viel gegoogelt, aber scheinbar gibt es keine Formel die sich einmalig dieses Datum holt und dann belässt. Viele schreiben von einer VBA-Lösung aber irgendwie krieg ich da auch nicht das wie ich es hier brauche.
Weiß von euch jemand einen Rat ?
viele Grüße
Jürgen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ERR_EXIT With Target If .Column = 1 Then If .Count = 1 Then If Cells(.Row, "R") = "" Then Application.EnableEvents = False Cells(.Row, "R") = Now Cells(.Row, "S") = Environ$("Username") End If End If End If End With ERR_EXIT: Application.EnableEvents = True End Sub

Hallo Boris,
ja, den Gedanken hatte ich auch schon, aber dann funktionieren meine Makros nicht mehr. Ich habe ein Makro das die Datei speichert und schließt und vorher je Spalte ganz bestimmte Filtereinstellungen einstellt.......und das funktioniert dann nicht mehr.
Ich habe gerade festgestellt, wenn meine Kollegen z.B. in die Zelle nicht hineinschreiben, sondern den Inhalt einfach von oben nach unten ziehen, sprich kopieren, dann wird der Zeitstempel nicht erzeugt.......also nur wenn man tatsächlich in die Zelle schreibt.
Zu Deinem Code habe ich auch noch eine Verständnisfrage. Was passiert hier in dem Code:
With Target
If .Column = 1 Then
If .Count = 1 Then
Ich hatte nämlich die Idee, dass nicht auf die Zelle in Spalte A geschaut werden soll, sondern in Spalte D, weil können die Kollegen nichts von oben runterziehen und kopieren, sondern müssen hier tatsächlich tippen. Ich dachte dann dass ich in Deinem Code einfach nur die 1 zur 4 machen müsste (wegen Spalte 4), aber da zeigte sich mir dann, dass ich den Code gar nicht verstanden hab.
Kannst Du mir hier nochmal weiterhelfen ?
viele Grüße
Jürgen

Beliebteste Forumthreads (12 Monate)

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread