Private Sub datagridview1_down(ByVal sender As Object, ByVal e As _
  Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyDown
        Dim wert As String = "", x As Integer, y As Integer, Feldname As String _
        = "", Feldwert As Integer
 
        x = Me.DataGridView1.CurrentCell.ColumnIndex
        y = Me.DataGridView1.CurrentCell.RowIndex
 
        Me.DataGridView1.CurrentCell.Selected = True
 
        If e.KeyCode = Keys.Down Then
            Feldwert = Int(Me.DataGridView1("Feldindex", y).Value)
            Me.DataGridView1("Feldindex", y).Value = Me.DataGridView1( _
              "Feldinex", y).Value + 1
        End If
 
        If e.KeyCode = Keys.Delete Then
            Me.DataGridView1.CurrentCell.Value = ""
            Me.DataGridView1.CurrentCell = Me.DataGridView1.Rows(y + 1).Cells(x)
            Me.DataGridView1.CurrentCell = Me.DataGridView1.Rows(y).Cells(x)
        End If
 
        Feldname = Me.DataGridView1.Columns.Item(x).HeaderText.ToString
 
        speichern(Feldname)
    End Sub