diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
index b20449af..a0f5366e 100644
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
@@ -331,10 +331,10 @@ Public Class frmMitarbeitersuche
                     If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung <> "" Then
                         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
                             Case "SUB" : timestp = timestp.AddHours(1)
-                            Case "SBG" : timestp = timestp.AddHours(1)
+                            Case "SBG" : timestp = timestp.AddHours(1) '? 30
                             Case "WAI" : timestp = timestp.AddMinutes(30)
                             Case "NKD" : timestp = timestp.AddMinutes(20)
-                            Case "DTB" : timestp = timestp.AddMinutes(40)
+                            Case "DTB" : timestp = timestp.AddMinutes(30)
                             Case Else
                                 timestp = timestp.AddMinutes(1) 'NICHT ERLAUBT
                         End Select
@@ -370,11 +370,11 @@ Public Class frmMitarbeitersuche
                 Dim aktengang As DateTime = Now().AddMinutes(-minutesBeforeStart)
                 Dim askPost As MsgBoxResult = MsgBox("Aktengang für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " eintragen?" & vbNewLine & aktengang.ToString(), vbYesNo)
                 If askPost = vbYes Then
-                        Dim info
+                    Dim info
                     Dim timestp = aktengang
 
                     Dim timeEntryExisting As Boolean = False
-                        Dim isOnline = timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, Nothing, timeEntryExisting)
+                    Dim isOnline = timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, Nothing, timeEntryExisting)
                     If Not timeEntryExisting AndAlso Not isOnline Then
                         timas.setTimeEntry(cAllgemein.MITARBEITER, timestp, info, "in", 10) 'Start 10 Aktengang
                         timestp = timestp.AddMinutes(minutesBeforeStart)
diff --git a/VERAG_PROG_ALLGEMEIN/cErrorHandler.vb b/VERAG_PROG_ALLGEMEIN/cErrorHandler.vb
index 4feba8e9..f32d0f4c 100644
--- a/VERAG_PROG_ALLGEMEIN/cErrorHandler.vb
+++ b/VERAG_PROG_ALLGEMEIN/cErrorHandler.vb
@@ -15,9 +15,9 @@ Public Class cErrorHandler
         '    bm.Save("C:\formgrab.bmp", Drawing.Imaging.ImageFormat.Bmp)
         'End If
 
+        Try
 
-
-        Select Case OP
+            Select Case OP
             Case ERROR_OP.MAIL
                 sendERRORperMail(title & " | " & My.Application.Info.AssemblyName, message, stack, mailadess, zusatz, functionName)
             Case ERROR_OP.SHOW
@@ -33,6 +33,15 @@ Public Class cErrorHandler
         VERAG_PROG_ALLGEMEIN.cERS.saveErr(OP, message, stack, errCode, functionName, recieverMailAdress, zusatz)
 
 
+        Catch ex As Exception
+            Try
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+
+            Catch ex2 As Exception
+
+            End Try
+        End Try
+
     End Sub
 
     Public Shared Sub sendERRORperMail(title, errmsg, errstack, recieverMailAdress, zusatz, functionName)