Private Sub Grid1_RowLoaded(ByVal nRow As Long, _
  Item As sevDataGrid2.ListItem)
 
  With Item
    ' Anrede liegt als Wert (0,1,2) vor und soll
    ' durch die entsprechenden Anredetexte ersetzt werden
    Select Case Val(.CellText(2))
      Case 0
        .CellText(2) = "Herrn"
      Case 1
        .CellText(2) = "Frau"
      Case 2
        .CellText(2)= "Firma"
    End Select        
  End With
End Sub