Private Sub gridAnsicht_RowLoaded(ByVal nRow As Long, Item As _
  sevDataGrid2.ListItem)
    With Item
        If .CellText(UCase("Unit of Measure")) = "LFM" Then
 
'            .CellBackColor = vbRed
'            .BackColor = vbRed
 
        End If
    End With
End Sub