diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb
index 7fd636df..158380df 100644
--- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb	
+++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb	
@@ -160,7 +160,7 @@ Public Class KdSearchBox
         End Try
     End Sub
 
-    Private Sub seeAllKunden(sender As Object, e As MouseEventArgs) Handles usrcntl.DGV_AlleKunden
+    Private Sub seeAllKunden(sender As Object, e As EventArgs) Handles usrcntl.DGV_AlleKunden
 
         If Not searchActive Then Exit Sub
 
@@ -219,9 +219,7 @@ Public Class KdSearchBox
 
                     'THREADING AKTIV
                     Me.ThreadInitAKTIV(GlobalAnzahlKunden)
-                    ' Dim ThreadInitAKTIV = New System.Threading.Thread(AddressOf Me.ThreadInitAKTIV)
-                    ' ThreadInitAKTIV.IsBackground = True
-                    ' ThreadInitAKTIV.Start()
+
 
                 End With
             End If
@@ -712,7 +710,7 @@ Public Class KdSearchBox
                 'End If
                 If Not _displayWoelflKd Then SQLstrEnd &= "  AND AdressenNr NOT LIKE '15%'"
 
-                setDS(True, usrcntl.dgvKundenAktiv, SQL.loadDgvBySql(SQLstr & SQLstrEnd & " order by Ordnungsbegriff ", "FMZOLL"), topAnz, IIf(srch.Count > 4, SQL.getValueTxtBySql(SQLstrCount & SQLstrEnd, "FMZOLL"), ""))
+                setDS(True, usrcntl.dgvKundenAktiv, SQL.loadDgvBySql(SQLstr & SQLstrEnd & " order by Ordnungsbegriff ", "FMZOLL"), topAnz, IIf(srch.Count > 2, SQL.getValueTxtBySql(SQLstrCount & SQLstrEnd, "FMZOLL"), ""))
 
             End With
 
@@ -832,7 +830,7 @@ Public Class KdSearchBox
 
             If aktiveKunden Then
 
-                If topKunden < CInt(anzahlKunden) And CInt(anzahlKunden) < 65 Then
+                If IsNumeric(anzahlKunden) AndAlso topKunden < CInt(anzahlKunden) AndAlso CInt(anzahlKunden) < 100 Then
                     usrcntl.btnAlleKunden.Visible = True
                 Else
                     usrcntl.btnAlleKunden.Visible = False
diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.vb
index a8e23579..4b3a1e67 100644
--- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.vb	
+++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.vb	
@@ -50,7 +50,9 @@ Public Class usrcntlKdSearch
 
     End Sub
 
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAlleKunden.Click
+    Private Sub btnAlleKunden_Click(sender As Object, e As EventArgs) Handles btnAlleKunden.Click
+
         RaiseEvent DGV_AlleKunden(sender, e)
     End Sub
+
 End Class