Forum Discussion
Solved
Show date of modification to one cell
I have a set list of items and need to have a column that shows when the last time the cell next to it was modified. In the attached example column A will always be the same, column B will be modifie...
Maybe as shown in the attached file.
How did you do that?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngBereich As Range
Set rngBereich = Range("B2:B2500")
If Not Application.Intersect(Target, rngBereich) Is Nothing Then
If Target.Value <> " " Then
Target.Offset(0, 1).Value = Date
Else
End If
End If
End SubThis is done with the Worksheet_Change event and these lines of code.