Private Sub datagridview1_change(sender As Object, e As _
   System.Windows.Forms.DataGridViewCellEventArgs) Handles _
   DataGridView1.CellValueChanged
        Dim wert As String = "", x As Integer, y As Integer, Feldname As String _
        = "", LetztesFeld As Integer
        x = Me.DataGridView1.CurrentCell.ColumnIndex
        y = Me.DataGridView1.CurrentCell.RowIndex
 
        If x <= 0 Then Exit Sub
        If Me.DataGridView1.CurrentCell.Value = "" Then
            LetztesFeld = x
        Else
            LetztesFeld = Me.DataGridView1.CurrentCell.ColumnIndex + 1
 
        End If
 
        If LetztesFeld = 0 Then
        Else
            If LetztesFeld <= Int(Me.DataGridView1("Feldindex", y).Value) Then
            Else
                Me.DataGridView1("Feldindex", y).Value = Str(LetztesFeld)
            End If
        End If
 
        Me.DataGridView1("Feldindex", y).Value = Str(LetztesFeld)
    End Sub