Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige