Private Sub sevGrid1_CellClick(ByVal nRow As Long, _
  ByVal nCol As Long, _
  ByVal Button As Integer, _
  ByVal Shift As Integer)
 
    With sevGrid1
       .DoEdit .Row, nCol
       If nCol = 1 Or 3 Or 6 Or 8 Then
          With .SelectedItem
             If nCol = 1 Then
                If .CellText("sitz1") = "$t" Then
                   .CellImage("sitz1") = 4
                End If
             End If
          End With
       End If
    End With
End Sub