Private Sub DGV_CellEnter(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_Massen.CellEnter
        If EnableEvents = False Then Exit Sub
        If DGV_Massen.Item(e.ColumnIndex, e.RowIndex).Style Is NoSelect Or _
          DGV_Massen.CurrentCell.Style Is gesperrt Then
            Try
                Dim i As Integer = e.ColumnIndex
                Do While DGV.Item(i, e.RowIndex).Style Is gesperrt Or DGV.Item( _
                  i, e.RowIndex).Style Is NoSelect
                    i += 1
                Loop
                EnableEvents = False
                DGV.CurrentCell = DGV.Item(i, e.RowIndex)
                EnableEvents = True
                Exit Sub
            Catch ex As Exception
                Dim Fehler As String = Err.Description
                Stop
                DGV.CurrentCell = DGV.Item(2, e.RowIndex + 1)
                EnableEvents = True
            End Try
            Exit Sub
        End If
        Try
            DGV.BeginEdit(False)
        Catch ex As Exception
            Dim Fehler As String = Err.Description
            Stop
        End Try
    End Sub