diff --git a/messages/uniworx/categories/qualification/de-de-formal.msg b/messages/uniworx/categories/qualification/de-de-formal.msg
index 2e749c35c..ed3b858e5 100644
--- a/messages/uniworx/categories/qualification/de-de-formal.msg
+++ b/messages/uniworx/categories/qualification/de-de-formal.msg
@@ -9,6 +9,9 @@ QualificationElearningStart: E-Lernen automatisch starten
 TableQualificationCountActive: Aktive
 TableQualificationCountActiveTooltip: Anzahl Personen mit momentan gültiger Qualifkation
 TableQualificationCountTotal: Gesamt
+TableQualificationValidUntil: Gültig bis
+TableQualificationLastRefresh: Zuletzt erneuert 
+TableQualificationFirstHeld: Erstmalig
 TableLmsUser: Prüfling
 TableLmsIdent: Identifikation
 TableLmsElearning: E-Lernen
diff --git a/messages/uniworx/categories/qualification/en-eu.msg b/messages/uniworx/categories/qualification/en-eu.msg
index 4e8e31c18..978b29208 100644
--- a/messages/uniworx/categories/qualification/en-eu.msg
+++ b/messages/uniworx/categories/qualification/en-eu.msg
@@ -9,6 +9,9 @@ QualificationElearningStart: Start e-learning automatically
 TableQualificationCountActive: Active
 TableQualificationCountActiveTooltip: Number of currently valid qualifcation holders
 TableQualificationCountTotal: Total
+TableQualificationValidUntil: Valid until
+TableQualificationLastRefresh: Last renewed
+TableQualificationFirstHeld: First held
 TableLmsUser: Examinee
 TableLmsIdent: Identifier 
 TableLmsPin: E-learning pin
diff --git a/src/Handler/LMS.hs b/src/Handler/LMS.hs
index 2bcf8e23e..92f29c96f 100644
--- a/src/Handler/LMS.hs
+++ b/src/Handler/LMS.hs
@@ -187,23 +187,24 @@ mkLmsTable qid = do
         dbtColonnade = dbColonnade $ mconcat
           [ colUserNameLinkHdr MsgTableLmsUser AdminUserR
           , colUserEmail          
-          , sortable (Just "user")        (i18nCell MsgTableLmsUser)    $ cellHasUserLink AdminUserR
-          , sortable (Just "email")       (i18nCell MsgTableEmail)        cellHasEMail
-          --, sortable (Just csvLmsIdent)   (i18nCell MsgTableLmsIdent)   $ \(preview $ resultLmsUser . _entityVal . _lmsUserIdent . _getLmsIdent -> ident)     -> textCell ident
-          --, sortable (Just csvLmsSuccess) (i18nCell MsgTableLmsSuccess) $ \(view $ resultLmsResult . _entityVal . _lmsResultSuccess -> success)                -> dayCell success
+          , sortable (Just "valid-until")   (i18nCell MsgTableQualificationValidUntil) $ \(   view $ resultQualUser . _entityVal . _qualificationUserValidUntil  -> d)  -> dayCell d
+          , sortable (Just "last-refresh")  (i18nCell MsgTableQualificationLastRefresh)$ \(   view $ resultQualUser . _entityVal . _qualificationUserLastRefresh -> d)  -> dayCell d
+          , sortable (Just "first-held")    (i18nCell MsgTableQualificationFirstHeld)  $ \(   view $ resultQualUser . _entityVal . _qualificationUserFirstHeld   -> d)  -> dayCell d
+          , sortable (Just csvLmsIdent)     (i18nCell MsgTableLmsIdent)   $ \(preview $ resultLmsUser  . _entityVal . _lmsUserIdent . _getLmsIdent -> lid) -> foldMap textCell lid
+          , sortable (Just csvLmsSuccess)   (i18nCell MsgTableLmsSuccess) $ \(preview $ resultLmsUser  . _entityVal . _lmsUserStatus -> status)            -> foldMap lmsStatusCell $ join status
           ] -- TODO: add more columns for manual debugging view !!!
         dbtSorting = mconcat
           [ single $ sortUserNameLink queryUser
           , single $ sortUserEmail    queryUser 
-          , singletonMap "user"  ( SortColumn $ queryUser          >>> (E.^. UserDisplayName) )
-          , single     ("email"  , SortColumn $ queryUser          >>> (E.^. UserEmail) )
-          -- TODO: Use ready sorts and ready colonnades for user see Course.Users 
-          --    , (csvLmsIdent  , SortColumn $ queryLmsUser     >>> (E.^. LmsResultIdent))
+          , single ("valid-until" , SortColumn $ queryQualUser >>> (E.^. QualificationUserValidUntil))
+          , single ("last-refresh", SortColumn $ queryQualUser >>> (E.^. QualificationUserLastRefresh))
+          , single ("first-held"  , SortColumn $ queryQualUser >>> (E.^. QualificationUserFirstHeld))                    
+          -- , single (csvLmsIdent   , SortColumn $ queryLmsUser  >>> (E.?. LmsResultIdent))
           -- , (csvLmsSuccess, SortColumn $ queryLmsResult     >>> (E.^. LmsResultSuccess))
           -- , (csvLmsSuccess, SortColumn $ views (to queryLmsResult) (E.^. LmsResultSuccess))
           ]          
         dbtFilter = mconcat
-          [ single $ fltrUserNameLink   queryUser
+          [ single $ fltrUserNameEmail   queryUser
           -- , single $ fltrUserNameEmail  queryUser
           --("user"       , FilterColumn . E.mkContainsFilterWith Just     $ views (to queryUser)           (E.^. UserDisplayName))
           --  , ("email"      , FilterColumn . E.mkContainsFilterWith Just     $ views (to queryUser)           (E.^. UserEmail))
@@ -211,7 +212,7 @@ mkLmsTable qid = do
           --  , (csvLmsSuccess, FilterColumn . E.mkExactFilter                 $ views (to queryLmsResult)      (E.^. LmsResultSuccess))
           ]          
         dbtFilterUI mPrev = mconcat 
-          [ fltrUserNameLinkHdrUI MsgTableLmsUser mPrev
+          [ fltrUserNameEmailHdrUI MsgTableLmsUser mPrev
           -- , fltrUserNameEmailUI mPrev
           -- prismAForm (singletonFilter "user"        . maybePrism _PathPiece)                    mPrev $ aopt (hoistField lift textField)     (fslI MsgTableLmsUser)
           --, prismAForm (singletonFilter "email"       . maybePrism _PathPiece)                    mPrev $ aopt (hoistField lift textField)     (fslI MsgTableEmail)
diff --git a/src/Handler/Utils/Table/Cells.hs b/src/Handler/Utils/Table/Cells.hs
index b796bad69..15e26c06d 100644
--- a/src/Handler/Utils/Table/Cells.hs
+++ b/src/Handler/Utils/Table/Cells.hs
@@ -35,6 +35,10 @@ indicatorCell = writerCell . tell $ Any True
 writerCell :: IsDBTable m w => WriterT w m () -> DBCell m w
 writerCell act = mempty & cellContents %~ (<* act)
 
+-- for documentation purposes 
+cellMaybe :: IsDBTable m b => (a -> DBCell m b) -> Maybe a -> DBCell m b
+cellMaybe = foldMap
+
 maybeCell :: IsDBTable m b => Maybe a -> (a -> DBCell m b) -> DBCell m b
 maybeCell = flip foldMap
 
@@ -293,3 +297,9 @@ roomReferenceCell = cell . roomReferenceWidget
 
 cryptoidCell :: (IsDBTable m a, PathPiece cid) => cid -> DBCell m a
 cryptoidCell = addCellClass ("cryptoid" :: Text) . textCell . toPathPiece
+
+lmsStatusCell :: IsDBTable m a => LmsStatus -> DBCell m a
+lmsStatusCell ls = iconCell ic <> dayCell (lmsStatusDay ls)
+  where 
+    ic | isLmsSuccess ls = IconOK
+       | otherwise       = IconNotOK
\ No newline at end of file