EXCEL - Zeitstempel (VBA)?
Ich benötige eine (VBA) Lösung für folgende Anforderung
In Spalte A:A soll JE ZEILE ein Zeitstempel gesetzt werden, wenn in Spalte B:B in gleicher Zeile ein Eintrag erfolgt. Der Zeitstempel soll TT.MM.JJ hh:mm formatiert sein und fix bleiben Also Eintrag in Zelle B10 = Zeitstempel 07.10.16 10:45 in A10 Eintag in Zelle B11 = Zeitstempel 07.10.16 10:47 in A11 usw
3 Antworten
Formatiere einfach die komplette Spalte A, so wie Du es haben willst.
Dann:
Mache einen Rechtsklick auf den Tabellenreiter (unten, da wo z.B. Tabelle1 steht) und gehe dann auf "Code anzeigen...".
In das große Fenster des VBA-Editors, der sich dann öffnet kopierst Du folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Cells(Target.Row, 1) = Now
End If
End Sub
Die Datei musst Du danach aber als .xlsm speichern, und Makros zulassen.
Teste ausführlich.
Klappt es?
Antwort von Oubyi ist richtig.
Sollte "fix bleiben" sich so definieren, dass nur bei Ersteintrag ein Datum gesetzt wird, bei Änderung das Datum aber nicht neu berechnet wird, dann so
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Cells(Target.Row, 1) <> "" Then Exit Sub
Cells(Target.Row, 1) = Now
End If
End Sub
LG, Chris
Das ist keine VBA aufgabe, das geht ganz leicht mit einer Formel. Siehe Bild:
http://prntscr.com/cqw78n
Doch, das IST eine VBA-Aufgabe.
Du hast nämlich etwas Wichtiges übersehen:
Der Zeitstempel soll TT.MM.JJ hh:mm formatiert sein und fix bleiben
Deine Formel würde dazu führen, dass bei jeder Berechnung alle Zeitstempel aktualisiert werden.
Jup. mein Fehler! Habs grad probiert, meine Antwort ist Mist. Sorry, Ignoriert sie einfach, löschen kann mans ja nicht mehr.
Super Vielen Dank, genau so wie ich es benötige!