AW: Veränderung eines Zellwerts
18.04.2016 14:25:22
Daniel
Hi
schreibe folgenden Code ins Modul des Tabellenblatts.
jede Änderung des Werts wird in Spalte B mit dem Wert und in Spalte C mit Datum-Uhrzeit untereinander protokolliert:
(eine Neuberechnung ohne Wertänderung wird nicht protokolliert)
Private Sub Worksheet_Calculate()
Dim Zelle As Range
Set Zelle = Cells(Rows.Count, 2).End(xlUp)
If Zelle.Value Range("A5").Value Then
Application.EnableEvents = False
Zelle.Offset(1, 0).Value = Range("A5").Value
Zelle.Offset(1, 1).Value = Now
Application.EnableEvents = True
End If
End Sub
Gruß Daniel