'Datagridview Position auslesen
        Dim intRow As Integer = dgvKanon.CurrentCell.RowIndex
        Dim intColumn As Integer = dgvKanon.CurrentCell.ColumnIndex

'Datagridview Position setzen
        intRow = intRow - 1
        If intRow > 0 Then
            dgvKanon.CurrentCell = dgvKanon(intColumn, intRow)
 
'Das hier scheint nicht auszureichen:
            dgvKanon.CurrentCell.Selected = True
        Else
            dgvKanon.CurrentCell = dgvKanon(intColumn, 0)
        End If

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)