diff --git a/src/Handler/Exam.hs b/src/Handler/Exam.hs
index 230bb405c..b9ebc0893 100644
--- a/src/Handler/Exam.hs
+++ b/src/Handler/Exam.hs
@@ -893,6 +893,7 @@ postEUsersR tid ssh csh examn = do
             , fltrField            queryStudyField
             , fltrDegree           queryStudyDegree
             , fltrFeaturesSemester queryStudyFeatures
+            , ("occurrence", FilterColumn . E.mkContainsFilterWith Just $ queryExamOccurrence >>> (E.?. ExamOccurrenceName))
             ]
           dbtFilterUI mPrev = mconcat
             [ fltrUserNameEmailUI    mPrev
@@ -900,6 +901,7 @@ postEUsersR tid ssh csh examn = do
             , fltrFieldUI            mPrev
             , fltrDegreeUI           mPrev
             , fltrFeaturesSemesterUI mPrev
+            , prismAForm (singletonFilter "occurrence") mPrev $ aopt textField (fslI MsgExamOccurrence)
             ]
           dbtStyle = def { dbsFilterLayout = defaultDBSFilterLayout }
           dbtParams = def