Dato i excel

Denne makro skriver automatisk dags dato ind i kolonne I, hvis der skrives i kolonnerne A til H (række 1 til 100)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:H100")) Is Nothing Then
Cells(Target.Row, 9) = Date
End If
End Sub

VB

Public Function Lastmodified(c As Range)
Lastmodified = Now()
End Function

hvis vi siger du vil holde øje med A1 hedder formlen
=lastmodified(A1)