Hi,

i found a dirty solution on my own – but would be glad, if there is a better way

I am using to strings for this

s_KSt_MultiSel … contains the IDs, read and save from db
s_KSt_MultiSel_Display … contains the translated Display-Values 

After the cell has changed, the original IDs are set manually

Private Sub ugZulagenJeTag_AfterCellUpdate(sender As Object, e As CellEventArgs) Handles ugZulagenJeTag.AfterCellUpdate
        Try
            If e.Cell.Column.Key = "" Then
                Dim cls As cls_ZE_ZulagenJeTag = e.Cell.Row.ListObject
                If cls IsNot Nothing AndAlso Me.ugZulagenJeTag.Rows(0).Cells("s_KSt_MultiSel_Display").EditorComponentResolved IsNot Nothing Then
                    cls.s_KSt_MultiSel = ""
                    For Each itm As ValueListItem In DirectCast(Me.ugZulagenJeTag.Rows(0).Cells("s_KSt_MultiSel_Display").EditorComponentResolved, UltraComboEditor).CheckedItems
                        cls.s_KSt_MultiSel &= itm.DataValue & ";"
                    Next
                End If
            End If
        Catch ex As Exception
            Dim errhandler As New ErrorHandler
            errhandler.HandleError(ex)
        End Try
End Sub

Greets,
   Mike