-------------------------------------------------------------------------------
| Aufgaben | Aufgabenbeschreibung| Gruppe A| Gruppe B | Gruppe C| Erledigt am |
-------------------------------------------------------------------------------
| Putzen   | Heizraum, WC        |     x   |          |         |             |
-------------------------------------------------------------------------------
| Kotrolle | Alle Etagen         |         |     x    |   x     |             |
-------------------------------------------------------------------------------

 Dim dtx As New DataTable
 Dim bs As New BindingSource
 Dim WithEvents dgv As New DataGridView With {.Parent = Me}

     dtx.Columns.Add("Date", GetType(Date))
 
     For i As Integer = 0 To 9
        dtx.Rows.Add(DBNull.Value)
     Next i
 
     bs.DataSource = dtx
 
     dgv.AutoGenerateColumns = False
 
     dgv.DataSource = bs
 
    Dim dc As New DataGridViewButtonColumn
    dc.DataPropertyName = "Date"
    dc.HeaderText = dc.DataPropertyName
 
    dgv.Columns.Add(dc)

    Private Sub dgv_CellClick(sender As Object, _
        e As System.Windows.Forms.DataGridViewCellEventArgs) _
        Handles dgv.CellClick
 
        If e.ColumnIndex = -1 Then Exit Sub
 
        If dgv.Columns(e.ColumnIndex).DataPropertyName = "Date" Then
            Dim row As DataRow = CType(bs(bs.Position), DataRowView).Row
            row("Date") = Now  'oder Now.Date für Datum ohne Zeit
        End If
    End Sub

(Rechtschreibfehler urheberrechtlich geschützt)