Logboek maken

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

And Target.Column < [COLOR=#ff0000].ListColumns.[/COLOR]Count

For Each cl In[COLOR="#FF0000"] target[/COLOR]