diff --git a/UID/Dienstplan/frmDienstplanVariabel.vb b/UID/Dienstplan/frmDienstplanVariabel.vb
index 71b54ef..39f3318 100644
--- a/UID/Dienstplan/frmDienstplanVariabel.vb
+++ b/UID/Dienstplan/frmDienstplanVariabel.vb
@@ -1405,11 +1405,13 @@ Public Class frmDienstplanVariabel
                     'MsgBox("MA-ID: " & eintrag.dstetr_dstmaId & " " & "existingEntry: " & existingEntry & " Art: " & eintrag.dstetr_art & " DATUM: " & eintrag.dstetr_datum)
                     If existingEntry = 1 AndAlso (eintrag.dstetr_art = "URL" Or eintrag.dstetr_art = "KS" Or eintrag.dstetr_art = "DR" Or eintrag.dstetr_art = "BS") Or existingEntry = 0 Then
                         SQLDienst.updateInsertByDienstEintrag(eintrag, niederlassung,, False)
-                    Else
+                    ElseIf existingEntry > 1 AndAlso (eintrag.dstetr_art = "URL" Or eintrag.dstetr_art = "KS" Or eintrag.dstetr_art = "DR" Or eintrag.dstetr_art = "BS") Then 'wenn mehr als 1 Eintrag pro Tag -> Splitschicht
+
+                        SQLDienst.delDstEintraegeMaId(datum, datum, niederlassung, m.dstma_id)
+                        SQLDienst.updateInsertByDienstEintrag(eintrag, niederlassung,, False)
 
                     End If
                 Else
-                    'SQLDienst.updateInsertByDienstEintrag(eintrag, niederlassung,, False)
                     SQLDienst.updateInsertByDienstEintrag(eintrag, niederlassung)
 
                 End If
diff --git a/UID/Dienstplan/usrCntlDienstplan.vb b/UID/Dienstplan/usrCntlDienstplan.vb
index 85adb82..b019cd7 100644
--- a/UID/Dienstplan/usrCntlDienstplan.vb
+++ b/UID/Dienstplan/usrCntlDienstplan.vb
@@ -365,7 +365,7 @@ Public Class usrCntlDienstplan
         Dim tatStdSum As Double = 0
 
         Dim cPF As New cProgramFunctions
-        Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage
+        Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(datumKW.Year)
 
         AddHandler rpt.Detail.Format, Sub()
 
diff --git a/UID/cSqlDb.vb b/UID/cSqlDb.vb
index acb299e..9221f04 100644
--- a/UID/cSqlDb.vb
+++ b/UID/cSqlDb.vb
@@ -4098,7 +4098,7 @@ Public Class cDienstplan
                         Dim datum As Date = CDate(dr.Item("dstetr_datum"))
                         Dim woTag = datum.ToString("ddd", New CultureInfo("de-DE")).ToUpper
 
-                        Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage()
+                        Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(datum.Year)
                         '  If FT.isFeiertag(datum) And woTag <> "SO" And woTag <> "SA" Then
                         '     s +=
                         ' End If