Try
            'Der Variable den String der momentan gewählten Zelle zuweisen
            strVert = ""
            strVert = dgv1.CurrentCell.Value.ToString
 
            'Eine neue Reihe mit dem Inhalt der Variable zuweisen
            dtVert.Rows.Add(strVert)
 
            'Löschen
            Dim strXLoesch As String = dgv1.CurrentRow.Index.ToString
            dt.Rows.RemoveAt(CInt(strXLoesch))
        Catch ex As Exception
            MsgBox("Es sind keine Datensätze in der Liste")
        End Try

Gruss
VIVAX

}
}
}

1:0 für Visual Basic.NET