diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb
index 41763928..3b5c77a1 100644
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -2824,12 +2824,23 @@ Public Class usrCntlKundenuebersicht
 
         cBonitaetsauskunft.ba_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
         cBonitaetsauskunft.ba_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
-        cBonitaetsauskunft.ba_Hoechstkredit = IIf(company.csMaxCreditAmount <> "", CDbl(company.csMaxCreditAmount), 0) 'cProgramFunctions.isLeerNothingDbl(CDbl(company.csMaxCreditAmount), 0)
+        If company.csMaxCreditAmount <> "" And IsNumeric(company.csMaxCreditAmount) Then
+            cBonitaetsauskunft.ba_Hoechstkredit = CDbl(company.csMaxCreditAmount)
+        Else
+            cBonitaetsauskunft.ba_Hoechstkredit = 0
+        End If
+
         cBonitaetsauskunft.ba_Bankverbindung = ""
         cBonitaetsauskunft.ba_Zahlungsweise = ""
         cBonitaetsauskunft.ba_GFName = ""
         cBonitaetsauskunft.ba_Sonstiges = ""
-        cBonitaetsauskunft.ba_GruendundsDatum = IIf(company.csDFoundingDate > New Date("01.01.1900"), company.csDFoundingDate, "")
+        If IsDate(company.csDFoundingDate) Then
+            cBonitaetsauskunft.ba_GruendundsDatum = IIf(company.csDFoundingDate > New Date("01.01.1900"), company.csDFoundingDate, "")
+        Else
+            cBonitaetsauskunft.ba_GruendundsDatum = ""
+        End If
+
+
 
         If cBonitaetsauskunft.SAVE Then
             SQL.doSQL("UPDATE Kunden SET Bonität='" & cBonitaetsauskunft.ba_BonitaetsIndex & "', Bonitätsdatum='" & cBonitaetsauskunft.ba_Datum & "', Höchstkredit=" & If(cBonitaetsauskunft.ba_Hoechstkredit Is Nothing, "null", "'" & cBonitaetsauskunft.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cBonitaetsauskunft.ba_KundenNr & "'", "FMZOLL")