diff --git a/SDL/frmMain.vb b/SDL/frmMain.vb
index 0f22a664..f21ab6ca 100644
--- a/SDL/frmMain.vb
+++ b/SDL/frmMain.vb
@@ -153,9 +153,15 @@ Public Class frmMain
             If Not timeEntryExisting AndAlso isEndpointRunning Then
                 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
-                    Dim info
-                    timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0))
-                    MsgBox(info)
+                    If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasMehrereFirmen Then
+                        Dim f As New frmZEButtons("in", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasFirmen)
+                        f.ShowDialog()
+                        f.BringToFront()
+
+                        Dim info
+                        timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0))
+                        MsgBox(info)
+                    End If
                 End If
             End If