Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Private Sub Worksheet_Change(ByVal Target As Range)
With ListObjects(1)
If Not Intersect(Target, .DataBodyRange) Is Nothing And Target.Column < .Range.Columns.Count Then
If Target.Count = 1 Then
.Range.Cells(Target.Row, .Range.Columns.Count) = Now
Else
For Each cl In Range(Target.Address)
.Range.Cells(cl.Row, .Range.Columns.Count) = Now
Next cl
End If
End If
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
With ListObjects(1)
If Not Intersect(Target, .DataBodyRange) Is Nothing And Target.Column < .Range.Columns.Count Then
For Each cl In Range(Target.Address)
.Range.Cells(cl.Row, .Range.Columns.Count) = Now
Next cl
End If
End With
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.