diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb
index c0b5c4f..67db593 100644
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -614,13 +614,13 @@ Public Class frmHauptfenster
                         Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo)
                         If a = vbYes Then
 
-                            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_nname.ToLower = "celan" Then 'aktuell Hardcoded, wenn Zeit ist dynamisch (per SQL-tbl)
+                            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_nname.ToLower = "celan" Then 'aktuell hardcoded, wenn Zeit ist dynamisch (per SQL-tbl)
                                 Dim f As New frmZEButtons("in")
                                 f.ShowDialog()
                                 f.BringToFront()
                             Else
                                 Dim info
-                                timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in")
+                                timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0))
                                 MsgBox(info)
                             End If
 
@@ -2925,7 +2925,7 @@ Public Class frmHauptfenster
     Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
 
         Try
-            If False Then
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ausstempelnBeiBeenden Then
                 If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
                     If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then
                         Dim timas As New cTimasAPI("timas")
@@ -2937,7 +2937,7 @@ Public Class frmHauptfenster
                             Dim a As MsgBoxResult = MsgBox("Soll " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " ausgestempelt werden?" & vbNewLine & Now.ToString() & " als Endzeit erfassen?", vbYesNo)
                             If a = vbYes Then
                                 Dim info
-                                timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "out")
+                                timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "out", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0))
                                 MsgBox(info)
                             Else
 
@@ -3006,14 +3006,6 @@ Public Class frmHauptfenster
     End Sub
 
 
-
-    Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs)
-
-    End Sub
-
-
-
-
     Private Sub StandorteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StandorteToolStripMenuItem.Click
         Dim f As New frmTabelleStandorte
         f.ShowDialog(Me)