Option Explicit
 
Private Sub Command1_Click()
    'Starte das Editieren in der ComboList-Spalte
    sevGrid1.DoEdit 1, "ComboList"
End Sub
 
Private Sub Command2_Click()
    'Lösche die Selektion/den Zelleintrag in der ComboList-Spalte
    sevGrid1.Text(1, "ComboList") = ""
End Sub
 
Private Sub Form_Load()
    Label1.Caption = ""
    With sevGrid1
        'Grid Einstellungen vornehmen
        .DataMode = Mode_List
        .AllowEdit = True
        .ColumnAdd "Text", "Text"
        .ColumnAdd "ComboList", "ComboList", , , , TYPE_COMBOLIST
        'Grid füllen
        .AddItem "Eine Zeile" & vbTab & "Erster Eintrag"
    End With
End Sub
 
Private Sub sevGrid1_EditComboClick(ByVal ListIndex As Long, ByVal sText As _
  String)
    Label1.Caption = "ListIndex: " & ListIndex & ", Text: '" & sText & "'"
End Sub
 
Private Sub sevGrid1_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
  oComboBox As sevDataGrid2.EditComboBox)
    If nCol = sevGrid1.Columns("ComboList").Index Then
        'Einträge in ComboList aufnehmen
        With oComboBox
            .AddItem "Erster Eintrag"
            .AddItem "Zweiter Eintrag"
            .AddItem "Dritter Eintrag"
        End With
    End If
End Sub

Immer noch auf der Suche nach dem "Tu's trotzdem"-Button...