Option Explicit
 
Private Sub Form_Load()
    With sevGrid1
        .DataMode = Mode_List
        .ColumnAdd "S1", "Key"
        .AddItem "1"
        .AddItem "2"
        .AddItem "3"
        .AllowEdit = True
    End With
End Sub
 
Private Sub sevGrid1_AfterCellEdit(nRow As Long, nCol As Long, ByVal sText As _
  String)
    Dim nColor As Long
    Dim item As sevDataGrid2.ListItem
    Dim SameText As Boolean
 
    'Hier kommt der kritische Teil:
    If Check1.Value = 1 Then
        'So funktioniert's...
        SameText = (sText = sevGrid1.ListItems(nRow - 1).CellText(nCol))
        Set item = sevGrid1.ListItems(nRow)
    Else
        '...und so nicht
        Set item = sevGrid1.ListItems(nRow)
        SameText = (sText = sevGrid1.ListItems(nRow - 1).CellText(nCol))
    End If
 
    'Der Rest ist immer gleich:
 
    'Farbe festlegen: (roten Zellhintergrund bei gleichen Einträgen wie in
    'der Vorgängerzeile, ansonsten weiß)
    If nRow > 1 Then
        If SameText Then
            nColor = vbRed
        Else
            nColor = vbWhite
        End If
    Else
        nColor = vbWhite
    End If
    'Farbe setzen:
    item.CellBackColor(nCol) = nColor
End Sub

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