Public Class Form1
 
    Public Var(10) As String
    Public var2(10) As String
 
 
    Private Sub DataGridView1_CellLeave(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DataGridViewCellEventArgs) Handles _
      DataGridView1.CellLeave
 
    End Sub
 
    Private Sub DataGridView1_CellValidating(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles _
      DataGridView1.CellValidating
        'Wenn die Zeile nicht bearbeitet wurde verlassen
        If Not DataGridView1.IsCurrentCellDirty Then
            Exit Sub
        End If
 
        For i = 0 To Var.Count - 1
            If Var(i) Is Nothing Then
                Var(i) = e.FormattedValue
                var2(i) = DataGridView1.CurrentRow.Index
                'Wenn mehr als 10 Einträge zusammenkommen:
                If i = Var.Count - 1 Then
                    ReDim Preserve Var(Var.Count + 1)
                    ReDim Preserve var2(Var.Count + 1)
                End If
                Exit For
            End If
        Next
 
        If Not BackgroundWorker1.IsBusy = True Then
            BackgroundWorker1.RunWorkerAsync()
        End If
 
    End Sub
 
    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e _
      As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim Wert As String = Nothing
        Dim Zeile As String = Nothing
 
Start:
        For i = 0 To Var.Count - 1
            If Not Var(i) = Nothing Then
                Wert = Var(i)
                Zeile = var2(i)
                Var(i) = Nothing
                var2(i) = Nothing
                Exit For
            End If
        Next
 
        If Wert = Nothing Then
            Exit Sub
        End If
 
 
        System.Threading.Thread.Sleep(1000)
 
        DataGridView1.Rows(Zeile).Cells(1).Value = "Fertig"
 
        GoTo Start
 
    End Sub
End Class