diff --git a/src/Handler/Exam.hs b/src/Handler/Exam.hs
index e8c2b8ea4..ee7d96bed 100644
--- a/src/Handler/Exam.hs
+++ b/src/Handler/Exam.hs
@@ -1095,6 +1095,8 @@ postEUsersR tid ssh csh examn = do
                       , courseParticipantRegistration = now
                       , courseParticipantField = examUserCsvActCourseField
                       }
+                    User{userIdent} <- getJust examUserCsvActUser
+                    audit' $ TransactionExamRegister (unTermKey tid) (unSchoolKey ssh) csh examn userIdent
                     insert_ ExamRegistration
                       { examRegistrationExam = eid
                       , examRegistrationUser = examUserCsvActUser
@@ -1113,7 +1115,11 @@ postEUsersR tid ssh csh examn = do
                     update examUserCsvActRegistration [ ExamRegistrationOccurrence =. examUserCsvActOccurrence ]
                   ExamUserCsvSetCourseFieldData{..} ->
                     update examUserCsvActCourseParticipant [ CourseParticipantField =. examUserCsvActCourseField ]
-                  ExamUserCsvDeregisterData{..} -> delete examUserCsvActRegistration
+                  ExamUserCsvDeregisterData{..} -> do
+                    ExamRegistration{examRegistrationUser} <- getJust examUserCsvActRegistration
+                    User{userIdent} <- getJust examRegistrationUser
+                    audit' $ TransactionExamDeregister (unTermKey tid) (unSchoolKey ssh) csh examn userIdent
+                    delete examUserCsvActRegistration
                 return $ CExamR tid ssh csh examn EUsersR
             , dbtCsvRenderKey = \(registeredUserName -> registeredUserName') -> \case
                 ExamUserCsvCourseRegisterData{..} -> do