bugfix cam

2024-12-30 13:23:03 +01:00
parent a6ab0aecc8
commit 1f35a9814b
2 changed files with 3 additions and 3 deletions
--- 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)