diff --git a/src/Handler/Utils/Form.hs b/src/Handler/Utils/Form.hs
index 6cccfa42b..bbd547277 100644
--- a/src/Handler/Utils/Form.hs
+++ b/src/Handler/Utils/Form.hs
@@ -301,6 +301,8 @@ sheetTypeAFormReq d Nothing =
 sheetTypeAFormReq d (Just (Normal p)) =
   -- TODO, offer options to choose between Normal/Bonus/Pass
   (Normal . toPoints) <$> areq (natField "Punkte") d (Just $ fromPoints p)
+sheetTypeAFormReq d (Just (NotGraded)) = pure NotGraded
+
 
 sheetGroupAFormReq :: FieldSettings UniWorX -> Maybe SheetGroup -> AForm Handler SheetGroup
 sheetGroupAFormReq d (Just (Arbitrary n)) | n >= 1 =