Private Sub sevGrid_RowLoaded(ByVal nRow As Long, Item As sevDataGrid2.ListItem)
    On Error Resume Next
    With Item
        'Bemerkung auf 255 Zeichen kürzen !
        If mExportExcel = True Then
            .CellText("Bemerkung") = Left(.CellText("Bemerkung"), 255)
        End If
    End With
End Sub