diff --git a/SDL/kunden/usrCntlCBAM.vb b/SDL/kunden/usrCntlCBAM.vb
index 1f06ef2c..933ddb4b 100644
--- a/SDL/kunden/usrCntlCBAM.vb
+++ b/SDL/kunden/usrCntlCBAM.vb
@@ -1092,7 +1092,7 @@ Public Class usrCntlCBAM
 
             Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-                Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value)
+                Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value,, False)
                 btnCBAM_DS_DAKOSY_Deteil.Tag = path
                 btnCBAM_DS_DAKOSY_Deteil.Enabled = True
                 btnCBAM_DS_DAKOSY_Copy.Enabled = True
diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
index a0348488..da3a24ad 100644
--- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
+++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
@@ -270,11 +270,11 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
             If autoAdjust Then
 
                 'Spaltenbreite auto:
-                wb.Worksheets(0).Columns().AdjustToContents()
+                If wb.Worksheets(0).ColumnCount > 0 Then wb.Worksheets(0).Columns().AdjustToContents()
 
             End If
 
-            Dim filename As String = ""
+                Dim filename As String = ""
             If optFileName <> "" Then
                 filename = sPath & optFileName & endung '".xlsx"
                 While System.IO.File.Exists(filename)