diff --git a/SDL/kunden/frmBonitaet.vb b/SDL/kunden/frmBonitaet.vb
index 42172a3f..58ac34e2 100644
--- a/SDL/kunden/frmBonitaet.vb
+++ b/SDL/kunden/frmBonitaet.vb
@@ -207,67 +207,95 @@ Public Class frmBonitaet
         End If
 
         If cboRisikostufe.Text = "" And Not cboTool._value = "creditreform" Then
-            lblWarning2.Text = "Bitte Risikostufeangegeben!"
+            lblWarning2.Text = "Bitte Risikostufe angegeben!"
             Return False
         End If
 
+        If txtBonitaetsindex.Text <> "" Then
+            If Not IsNumeric(txtBonitaetsindex.Text) Then
+                lblWarning.Text = "eingetragener Bonitätsindex ist kein Zahlenwert!"
+                Return False
+            End If
+
+        End If
+
+
 
         Select Case ADRESSE.LandKz.ToString
 
             Case "AT", "A"
-                If (CInt(txtBonitaetsindex.Text) < 100 Or CInt(txtBonitaetsindex.Text) > 700) And cboTool._value = "creditsafe AT" Then
-                    lblWarning.Text = "B-Score muss zwischen 100 und 700 liegen"
-                    Return False
+                If txtBonitaetsindex.Text <> "" Then
+                    If (CInt(txtBonitaetsindex.Text) < 100 Or CInt(txtBonitaetsindex.Text) > 700) And cboTool._value = "creditsafe AT" Then
+                        lblWarning.Text = "B-Score muss zwischen 100 und 700 liegen"
+                        Return False
+                    End If
                 End If
 
+
                 If cboTool._value = "creditsafe" Then
                     lblWarning.Text = "falsches Prüfungstool, bitte AT auswählen"
                     Return False
                 End If
 
-
-                If CInt(txtBonitaetsindex.Text) < 10 And CInt(txtBonitaetsindex.Text) <> 0 And cboTool._value = "creditreform" Then
+                If txtBonitaetsindex.Text <> "" Then
+                    If CInt(txtBonitaetsindex.Text) < 10 And CInt(txtBonitaetsindex.Text) <> 0 And cboTool._value = "creditreform" Then
                         lblWarning.Text = "B-Index muss größer als 10 sein"
                         Return False
                     End If
+                End If
+
+
+
 
 
 
 
             Case "DE", "D"
-                If (CDbl(txtBonitaetsindex.Text) < 1.0 Or CDbl(txtBonitaetsindex.Text) > 6.0) And cboTool._value = "creditsafe" Then
-                    lblWarning.Text = "B-Index muss zwischen 1.0 und 6.0 liegen"
-                    Return False
+                If txtBonitaetsindex.Text <> "" Then
+                    If (CDbl(txtBonitaetsindex.Text) < 1.0 Or CDbl(txtBonitaetsindex.Text) > 6.0) And cboTool._value = "creditsafe" Then
+                        lblWarning.Text = "B-Index muss zwischen 1.0 und 6.0 liegen"
+                        Return False
+                    End If
                 End If
 
+
                 If cboTool._value = "creditsafe AT" Then
                     lblWarning.Text = "falsches Prüfungstool, bitte Creditsafe auswählen"
                     Return False
                 End If
 
-                If CInt(txtBonitaetsindex.Text) < 10 And CInt(txtBonitaetsindex.Text) <> 0 And cboTool._value = "creditreform" Then
-                    lblWarning.Text = "B-Index muss größer als 10 sein"
-                    Return False
+                If txtBonitaetsindex.Text <> "" Then
+                    If CInt(txtBonitaetsindex.Text) < 10 And CInt(txtBonitaetsindex.Text) <> 0 And cboTool._value = "creditreform" Then
+                        lblWarning.Text = "B-Index muss größer als 10 sein"
+                        Return False
+                    End If
                 End If
 
 
+
             Case Else
-                If (CDbl(txtBonitaetsindex.Text) < 1.0 Or CDbl(txtBonitaetsindex.Text) > 1000.0) And cboTool._value = "creditsafe" Then
-                    lblWarning.Text = "B-Index muss zwischen 1.0 und 1000.0 liegen"
-                    Return False
+                If txtBonitaetsindex.Text <> "" Then
+                    If (CDbl(txtBonitaetsindex.Text) < 1.0 Or CDbl(txtBonitaetsindex.Text) > 1000.0) And cboTool._value = "creditsafe" Then
+                        lblWarning.Text = "B-Index muss zwischen 1.0 und 1000.0 liegen"
+                        Return False
+                    End If
                 End If
 
+
                 If cboTool._value = "creditsafe AT" Then
                     lblWarning.Text = "falsches Prüfungstool, bitte Creditsafe auswählen"
                     Return False
                 End If
 
-                If CInt(txtBonitaetsindex.Text) < 10 And CInt(txtBonitaetsindex.Text) <> 0 And cboTool._value = "creditreform" Then
-                    lblWarning.Text = "B-Index muss größer als 10 sein"
-                    Return False
+                If txtBonitaetsindex.Text <> "" Then
+                    If CInt(txtBonitaetsindex.Text) < 10 And CInt(txtBonitaetsindex.Text) <> 0 And cboTool._value = "creditreform" Then
+                        lblWarning.Text = "B-Index muss größer als 10 sein"
+                        Return False
+                    End If
                 End If
 
 
+
         End Select
 
         lblWarning.Text = ""
diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb
index af000199..d870d0c9 100644
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -2792,6 +2792,7 @@ Public Class usrCntlKundenuebersicht
         End If
 
         initCreditsave()
+        setKD(kdNr)
         Cursor = Cursors.Default
 
     End Sub