diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index 34984ab..4712e37 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -6,7 +6,6 @@ Imports System.Security.Cryptography.X509Certificates
 Imports System.Text
 Imports System.Threading
 Imports System.Xml
-Imports DocumentFormat.OpenXml.Drawing.Diagrams
 Imports MDM_Worker
 Imports Renci.SshNet
 Imports VERAG_PROG_ALLGEMEIN
@@ -6726,7 +6725,7 @@ repeatRequest:
                 If Path <> "" Then
 
                     Dim resp = cs.AddCompaniesCSVToPortfolio(Path, sync)
-                    If resp IsNot Nothing AndAlso resp.Contains("400") Then 'bei Fehler abbrechen!
+                    If resp IsNot Nothing AndAlso (resp.Contains("400") Or resp.Contains("Unauthorized")) Then 'bei Fehler abbrechen!
                         Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN, VERAG_PROG_ALLGEMEIN.cAPI_Type.REST, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_IN_CS, "CREDITSAFE-PORTFOLIO UPLOAD", "CS")
                         API.UPDTAE_ERR("ERROR", resp, "AddCompaniesCSVToPortfolio")
                         Exit While
@@ -6773,7 +6772,7 @@ repeatRequest:
 
         lblMissingCS.Text &= countMissing
 
-        lblCS_DB.Text = " VON" & sqlCountUploaded
+        lblCS_DB.Text = " VON " & sqlCountUploaded
     End Sub
 
     Private Sub cbCheckDate_CheckedChanged(sender As Object, e As EventArgs) Handles cbCheckDate.CheckedChanged