diff --git a/messages/uniworx/categories/qualification/de-de-formal.msg b/messages/uniworx/categories/qualification/de-de-formal.msg
index bcf9d71e1..e5e196fb5 100644
--- a/messages/uniworx/categories/qualification/de-de-formal.msg
+++ b/messages/uniworx/categories/qualification/de-de-formal.msg
@@ -5,6 +5,7 @@
 QualificationShort: Kürzel
 QualificationName: Qualifikation
 QualificationDescription: Beschreibung
+QualificationValidReason qsh@Text: #{qsh} Gültigkeit
 QualificationValidIndicator: Gültigkeit
 QualificationValidDuration: Gültigkeitsdauer
 QualificationAuditDuration: Aufbewahrungszeitraum E‑Learning Log
diff --git a/messages/uniworx/categories/qualification/en-eu.msg b/messages/uniworx/categories/qualification/en-eu.msg
index 96686cb37..077dd530c 100644
--- a/messages/uniworx/categories/qualification/en-eu.msg
+++ b/messages/uniworx/categories/qualification/en-eu.msg
@@ -5,6 +5,7 @@
 QualificationShort: Shorthand
 QualificationName: Qualification
 QualificationDescription: Description
+QualificationValidReason qsh: #{qsh} Validity
 QualificationValidIndicator: Validity
 QualificationValidDuration: Validity period
 QualificationAuditDuration: Audit log retention period
diff --git a/src/Handler/Course/Users.hs b/src/Handler/Course/Users.hs
index a4ca26ea4..8cf378447 100644
--- a/src/Handler/Course/Users.hs
+++ b/src/Handler/Course/Users.hs
@@ -240,15 +240,24 @@ colUserSheets shns = cap (Sortable Nothing caption) $ foldMap userSheetCol shns
 
 colUserQualifications :: forall m c. IsDBTable m c => Day -> Colonnade Sortable UserTableData (DBCell m c)
 colUserQualifications cutoff = sortable (Just "qualifications") (i18nCell MsgTableQualifications) $
-  let qualNamedValidCell (q,qu,qb) = textCell ((q ^. hasQualification . _qualificationShorthand . _CI) <> ": ") <> qualificationValidUntilCell cutoff qb qu
-  in  \(view _userCourseQualifications -> qualis) ->
-        (cellAttrs <>~ [("class", "list--inline list--comma-separated list--iconless")]) . listCell qualis $ qualNamedValidCell
+    let qualNamedValidCell (q,qu,qb) = textCell ((q ^. hasQualification . _qualificationShorthand . _CI) <> ": ") <> qualificationValidUntilCell cutoff qb qu
+    in  \(view _userCourseQualifications -> qualis) ->
+          (cellAttrs <>~ [("class", "list--inline list--comma-separated list--iconless")]) $ listCell qualis qualNamedValidCell
+
+-- colUserQualificationBlocked :: forall m c. IsDBTable m c => Bool -> Day -> Colonnade Sortable UserTableData (DBCell m c)
+-- colUserQualificationBlocked isAdmin cutoff = sortable (Just "qualification-block") (i18nCell MsgQualificationValidIndicator & cellTooltip MsgTableQualificationBlockedTooltipSimple) $
+--   let qualNamedReasonCell (q,qu,qb) = textCell ((q ^. hasQualification . _qualificationShorthand . _CI) <> ": ") <> qualificationValidReasonCell isAdmin cutoff qb qu
+--   in  \(view _userCourseQualifications -> qualis) ->
+--         (cellAttrs <>~ [("class", "list--inline list--comma-separated list--iconless")]) . listCell qualis $ qualNamedReasonCell
+
+colUserQualificationBlocked :: forall m c. IsDBTable m c => Bool -> Day -> Entity Qualification -> Colonnade Sortable UserTableData (DBCell m c)
+colUserQualificationBlocked  isAdmin cutoff Entity{entityKey=qid, entityVal=Qualification{qualificationShorthand=qsh}}
+  = sortable (Just "user-qualification") (i18nCell (MsgQualificationValidReason $ ciOriginal qsh) & cellTooltip MsgTableQualificationBlockedTooltipSimple) $
+      let qualNamedReasonCell (_q,qu,qb) = qualificationValidReasonCell isAdmin cutoff qb qu
+      -- in \(view _userCourseQualifications . to (filter ((== qid) . entityKey . fst3)) -> qualis) ->
+      in \(view _userCourseQualifications -> qualis) ->
+            (cellAttrs <>~ [("class", "list--inline list--comma-separated list--iconless")]) $ listCell (filter ((== qid) . entityKey . fst3) qualis) qualNamedReasonCell
 
-colUserQualificationBlocked :: forall m c. IsDBTable m c => Bool -> Day -> Colonnade Sortable UserTableData (DBCell m c)
-colUserQualificationBlocked isAdmin cutoff = sortable (Just "qualification-block") (i18nCell MsgQualificationValidIndicator & cellTooltip MsgTableQualificationBlockedTooltipSimple) $
-  let qualNamedReasonCell (q,qu,qb) = textCell ((q ^. hasQualification . _qualificationShorthand . _CI) <> ": ") <> qualificationValidReasonCell' Nothing isAdmin cutoff qb qu
-  in  \(view _userCourseQualifications -> qualis) ->
-        (cellAttrs <>~ [("class", "list--inline list--comma-separated list--iconless")]) . listCell qualis $ qualNamedReasonCell
 
 data UserTableCsv = UserTableCsv
   { csvUserSurname :: UserSurname
diff --git a/src/Handler/Tutorial/Users.hs b/src/Handler/Tutorial/Users.hs
index 8fab438e9..e1489e808 100644
--- a/src/Handler/Tutorial/Users.hs
+++ b/src/Handler/Tutorial/Users.hs
@@ -126,15 +126,15 @@ postTUsersR tid ssh csh tutn = do
     let nowaday = utctDay now
         minDur :: Maybe Int = minimumMaybe $ mapMaybe (view _qualificationValidDuration) qualifications  -- no instance Ord CalendarDiffDays
         dayExpiry = flip computeNewValidDate nowaday <$> minDur
-        colChoices  = mconcat $ catMaybes
-          [ pure $ dbSelect (applying _2) id (return . view (hasEntity . _entityKey))
-          , pure $ colUserNameModalHdr MsgTableCourseMembers ForProfileDataR
-          , pure   colUserEmail
-          , pure $ colUserMatriclenr isAdmin
-          , pure $ colUserQualifications nowaday
-          , pure $ colUserQualificationBlocked isAdmin nowaday
-          , pure $ colUserExamOccurrencesCheck tid ssh csh
-          , pure $ colUserExams tid ssh csh
+        colChoices  = mconcat $
+          [ dbSelect (applying _2) id (return . view (hasEntity . _entityKey))
+          , colUserNameModalHdr MsgTableCourseMembers ForProfileDataR
+          , colUserEmail
+          , colUserMatriclenr isAdmin
+          ] <>
+          [ colUserQualificationBlocked isAdmin nowaday q | q <- qualifications] <>
+          [ colUserExamOccurrencesCheck tid ssh csh
+          , colUserExams tid ssh csh
           ]
         psValidator = def
           & defaultSortingByName