'CELLE AUF DOPPELTE EINTRÄGE ÜBERPRÜFEN
        Dim dummy As String
        Dim y As Integer
 
'Inhalt der aktuellen Zeile in Spalte 0
 
        dummy = DataGridView1.CurrentRow.Cells(0).Value.ToString
 
'Index der aktuellen Zeile
 
        y = DataGridView1.CurrentCell.RowIndex
 
 
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
 
            If dummy = DataGridView1.Rows(i).Cells(0).Value.ToString And i _
              <> y Then
                MsgBox("vorhanden" & i & y)
 
            End If
        Next