Private Sub Grid1_RowLoaded(ByVal nRow As Long, Item As sevDataGrid2.ListItem)
  With Item
    Select Case Val(.CellText("Spalte_x"))
      Case 0
        .CellText("Spalte_x") = "Anzeigetext_1"
      Case 1
        .CellText("Spalte_x") = "Anzeigetext_2"
      ...
    End Select
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de