Dim x As Integer
        Dim i As Integer
        Dim y As Integer = dgv.GetCellCount(DataGridViewElementStates.Selected)
        Dim col As Integer
 
        col = dgv.SelectedCells(0).ColumnIndex
 
        For i = y - 1 To 0 Step -1
 
            If col <> dgv.SelectedCells(i).ColumnIndex Then
                MsgBox("Sie dürfen nur in einer Spalte auswählen")
                Exit Sub
            End If
 
        Next
 
        For i = y - 1 To 0 Step -1
 
            x = dgv.SelectedCells(i).RowIndex
            dgv.Rows.RemoveAt(x)
 
        Next