diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb
index d3de9fd2..e902816e 100644
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb
@@ -1489,7 +1489,7 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.MenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem14})
         Me.MenuStrip2.Location = New System.Drawing.Point(16, 71)
         Me.MenuStrip2.Name = "MenuStrip2"
-        Me.MenuStrip2.Size = New System.Drawing.Size(163, 27)
+        Me.MenuStrip2.Size = New System.Drawing.Size(283, 27)
         Me.MenuStrip2.TabIndex = 93
         Me.MenuStrip2.Text = "Kundenauswertungen"
         '
@@ -1507,14 +1507,14 @@ Partial Class usrCntlSpeditionsBuchSuche
         '
         Me.ToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.Excel_logo
         Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
-        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(336, 24)
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(344, 30)
         Me.ToolStripMenuItem1.Text = "Kundenbericht (Zeitraum auswählen)"
         '
         'ToolStripMenuItem19
         '
         Me.ToolStripMenuItem19.Image = Global.SDL.My.Resources.Resources.Excel_logo
         Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19"
-        Me.ToolStripMenuItem19.Size = New System.Drawing.Size(336, 24)
+        Me.ToolStripMenuItem19.Size = New System.Drawing.Size(344, 30)
         Me.ToolStripMenuItem19.Text = "Detailkundenbericht (Zeitraum auswählen)"
         '
         'Button15
diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
index f345cf7f..303aa325 100644
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
@@ -1800,7 +1800,7 @@ Public Class usrCntlSpeditionsBuchSuche
 
                                                   If existingRow Is Nothing Then
 
-                                                      Dim filialNrTemp = SQL.getValueTxtBySql("SELECT grz_filialNr from tblGrenzstelle where grz_BezeichnungCBO = '" & grenzstelle & "'", "AVISO")
+                                                      Dim filialNrTemp = SQL.getValueTxtBySql("SELECT grz_filialNr from tblGrenzstelle where grz_Grenzstelle = '" & grenzstelle & "'", "AVISO")
                                                       If filialNrTemp <> "" AndAlso IsNumeric(filialNrTemp) Then
                                                           filialNr = CInt(filialNrTemp)
                                                       End If
@@ -3968,6 +3968,10 @@ Public Class usrCntlSpeditionsBuchSuche
     Private Sub DataGridView_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)
 
     End Sub
+
+    Private Sub ToolStripMenuItem14_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem14.Click
+
+    End Sub
 End Class
 Class cSpeditionsbuchReport