Public Class Form1
    Private sp As Integer = 0
    Private ze As Integer = 0
    Private cell_wechsel As Boolean = False
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        For i = 0 To 10
            DataGridView1.Rows.Add("Yes", "Yes", "Yes", "Yes", "Yes", "Yes", _
              "Yes", "Yes")
        Next
    End Sub
 
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e _
      As System.Windows.Forms.DataGridViewCellEventArgs) Handles _
      DataGridView1.CellClick
        If DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).GetType.ToString _
        = "System.Windows.Forms.DataGridViewComboBoxCell" Then
            Exit Sub
        End If
        If cell_wechsel = True Then
            Dim TxtCell As New DataGridViewTextBoxCell
            Dim merk As String = DataGridView1.Rows(ze).Cells(sp).Value
            DataGridView1.Rows(ze).Cells(sp) = TxtCell
            DataGridView1.Rows(ze).Cells(sp).Value = merk
            cell_wechsel = False
        End If
        'Debug.Print(DataGridView1.Rows(e.RowIndex).Cells( 
        ' e.ColumnIndex).GetType.ToString)
        Dim CboCell As New DataGridViewComboBoxCell
        CboCell.Items.Clear()
        CboCell.Items.Add("Yes")
        CboCell.Items.Add("No")
        CboCell.Items.Add("None")
        'Debug.Print("Zeile " & e.RowIndex & "         Spalte " & e.ColumnIndex)
        If e.RowIndex = 0 And e.ColumnIndex = 0 Then
        Else
            Dim r As Int32 = e.RowIndex
            Dim c As Int32 = e.ColumnIndex
            DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).ReadOnly = True
            Dim merk As String = DataGridView1.Rows(e.RowIndex).Cells( _
              e.ColumnIndex).Value
            DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex) = CboCell
            DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).ReadOnly = False
            DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = merk
        End If
    End Sub
 
    Private Sub DataGridView1_CellLeave(ByVal sender As System.Object, ByVal e _
      As System.Windows.Forms.DataGridViewCellEventArgs) Handles _
      DataGridView1.CellLeave
        If DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).GetType.ToString _
        = "System.Windows.Forms.DataGridViewTextBoxCell" Then
            Exit Sub
        End If
        ze = e.RowIndex
        sp = e.ColumnIndex
        cell_wechsel = True
    End Sub
End Class