Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wenn sich Wert ändert, Datum in Zeile eintragen

Wenn sich Wert ändert, Datum in Zeile eintragen
16.05.2017 17:12:56
T1M0
Hallo liebe Community,
in einer Exceltabelle möchte ich in Spalte FF automatisiert das Datum eintragen lassen, sobald ein neuer Wert in Spalte D eingetragen wird oder sich der Wert in Spalte D ändert. Die Eintragung sollte zeilenscharf erfolgen: ändert sich der Wert in Spalte D4 sollte das Datum in FF4 geschrieben werden, ändert sich der Wert in D35, soll das Datum in FF35 geschrieben werden, etc.
Wichtig ist, dass erkannt wird ob sich der Wert tatsächlich ändert. Lediglich in eine Zelle von Spalte D klicken und Enter drücken sollte also nicht für eine Datumsänderung ausreichen. Eine Hilfsspalte kann leider nicht angelegt werden.
Da eine Tabelle oft mehr sagt als tausend Worte habe ich euch ein Beispielsheet hochgeladen und hoffe ihr könnt mir helfen.
https://www.herber.de/bbs/user/113621.xlsm
Danke im Voraus und beste Grüße!
T1m0

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn sich Wert ändert, Datum in Zeile eintra
16.05.2017 17:18:19
Michael
Hallo!
Folgenden Code ins Modul der Tabelle1 (den Blattreiter der Tabelle1 mit ReMaustaste anklicken, Code anzeigen, den Code reinkopieren):
Dim AlterWert
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 4 And _
.Cells.Count = 1 And _
Target.Value  AlterWert Then
Me.Cells(Target.Row, 162).Value = Date
End If
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Column = 4 And _
.Cells.Count = 1 Then
AlterWert = Target.Value
End If
End With
End Sub
LG
Michael
Anzeige

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige