Dim i As Long
Dim nRow As Long
Dim vDate As Variant
 
With grid1
  For i = 1 To .Row
    vDate = CDate(.Text(i, 10))
 
    nRow = grid2.FindFirst("Datum = #" & vDate & "#", True)
    If nRow > 0 Then
      grid2.Recordset.Fields("Person") = .Text(i, 4) & " , " & .Text(i, 5)
      grid2.Recordset.Update
      grid2.RowRefresh
    End If
  Next i
End With