diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg
index 5be0e189a..ff6b1fd3a 100644
--- a/messages/uniworx/de.msg
+++ b/messages/uniworx/de.msg
@@ -378,4 +378,7 @@ SheetNoRegisteredGroup sheetGroupDesc@Text: "#{sheetGroupDesc}" sind nicht als G
 SheetAmbiguousRegisteredGroup sheetGroupDesc@Text: "#{sheetGroupDesc}" enthält Mitglieder aus verschiedenen registrierten Gruppen
 SheetNoGroupSubmission sheetGroupDesc@Text: Gruppenabgabe ist für dieses Blatt nicht vorgesehen (#{sheetGroupDesc})
 SheetDuplicatePseudonym: Folgende Pseudonyme kamen mehrfach vor; alle Vorkommen außer dem Ersten wurden ignoriert:
-SheetCreateExisting: Folgende Pseudonyme haben bereits abgegeben:
\ No newline at end of file
+SheetCreateExisting: Folgende Pseudonyme haben bereits abgegeben:
+
+
+UserAccountDeleted name@Text: Konto für #{name} wurde gelöscht!
diff --git a/src/Handler/Home.hs b/src/Handler/Home.hs
index 92d9b8e1e..f0fbb4171 100644
--- a/src/Handler/Home.hs
+++ b/src/Handler/Home.hs
@@ -226,14 +226,18 @@ getVersionR = selectRep $ do
       return ($gitDescribe :: Text)
 
 
+-- helpForm
+
 getHelpR :: Handler Html
 getHelpR = do
   -- can we get the previous route?
   --who <- maybeAuth
   --now <- getCurrentTime
   --where <- getCurrentRoute
+  -- WAI getReferer
   -- TODO: form for free input
   defaultLayout $ do
+    setTitle "Hilfe"
     [whamlet|TODO|]
 
 postHelpR :: Handler Html
diff --git a/src/Handler/Profile.hs b/src/Handler/Profile.hs
index 701248d42..11e7510eb 100644
--- a/src/Handler/Profile.hs
+++ b/src/Handler/Profile.hs
@@ -163,10 +163,12 @@ postProfileDataR = do
   case btnResult of
     (FormSuccess BtnDelete) -> do
       (uid, User{..}) <- requireAuthPair
+      clearCreds False -- Logout-User
       ((deletedSubmissions,groupSubmissions),deletedSubmissionGroups) <- runDB $ deleteUser uid
+      -- addMessageIHamlet
+      $(addMessageFile Success "templates/deletedUser.hamlet") -- USE THIS ONE
       -- addMessageI Success $ MsgDeleteUser deletedSubmissions
       -- when (groupSubmissions > 0) $ addMessageI Info $ MsgDeleteUserGroupSubmissions groupSubmissions
-      --TODO: LogOut user
       defaultLayout $ do
         $(widgetFile "deletedUser")
 
@@ -181,7 +183,6 @@ deleteUser :: UserId -> DB ((Int,Int),Int64) -- TODO: Restrict deletions for lec
 deleteUser duid = do
     -- E.deleteCount for submissions is not cascading, hence we first select and then delete manually
     -- Submissions / SubmissionUser
-    -- TODO: SubmissionGroup / SubmissionGroupUser
     -- TODO: SheetPseudonym ???
     groupSubmissions  <- selectSubmissionsWhere (\numBuddies -> numBuddies E.>.  E.val (0::Int64))
     singleSubmissions <- selectSubmissionsWhere (\numBuddies -> numBuddies E.==. E.val (0::Int64))
diff --git a/templates/deletedUser.hamlet b/templates/deletedUser.hamlet
index 142d317f1..69b723987 100644
--- a/templates/deletedUser.hamlet
+++ b/templates/deletedUser.hamlet
@@ -1,14 +1,16 @@
 <div .container>
   <h1>
-    Account für ^{nameWidget userDisplayName userSurname} wurde gelöscht
+    _{MsgUserAccountDeleted userDisplayName}
   <div .container>
     #{display deletedSubmissions} Abgaben wurden unwiederruflich gelöscht.
-  <div .container>
-    #{display groupSubmissions} Gruppenabgaben verbleiben in der Datenbank,
-    aber die Zuordnung zum Benutzer wurden gelöscht.
-    Gruppenabgaben können dadurch zu Einzelabgaben werden,
-    welche dann vom letzten Benutzer gelöscht werden können.
+  $if groupSubmissions > 0
+    <div .container>
+      #{display groupSubmissions} Gruppenabgaben verbleiben in der Datenbank,
+      aber die Zuordnung zum Benutzer wurden gelöscht.
+      Gruppenabgaben können dadurch zu Einzelabgaben werden,
+      welche dann vom letzten Benutzer gelöscht werden können.
   $if deletedSubmissionGroups > 0
     <div .container>
       #{display deletedSubmissionGroups} benannte Abgabengruppen wurden gelöscht, da diese dadurch leer wurden.
-
+  <div .container>
+    Good Bye!