diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb
index 79afbe6e..0d14073e 100644
--- a/SDL/kunden/frmKundenblatt.Designer.vb
+++ b/SDL/kunden/frmKundenblatt.Designer.vb
@@ -1283,30 +1283,32 @@ Partial Class frmKundenblatt
         Me.dgvSperrliste.Name = "dgvSperrliste"
         Me.dgvSperrliste.ReadOnly = True
         Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle18
-        Me.dgvSperrliste.Size = New System.Drawing.Size(549, 413)
+        Me.dgvSperrliste.Size = New System.Drawing.Size(543, 413)
         Me.dgvSperrliste.TabIndex = 23
         '
         'PictureBox2
         '
         Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
         Me.PictureBox2.Image = Global.SDL.My.Resources.Resources.fax
-        Me.PictureBox2.Location = New System.Drawing.Point(1214, 254)
+        Me.PictureBox2.Location = New System.Drawing.Point(1296, 237)
         Me.PictureBox2.Name = "PictureBox2"
         Me.PictureBox2.Size = New System.Drawing.Size(25, 18)
         Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
         Me.PictureBox2.TabIndex = 150
         Me.PictureBox2.TabStop = False
+        Me.PictureBox2.Visible = False
         '
         'PictureBox1
         '
         Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
         Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.telefon
-        Me.PictureBox1.Location = New System.Drawing.Point(1214, 230)
+        Me.PictureBox1.Location = New System.Drawing.Point(1296, 213)
         Me.PictureBox1.Name = "PictureBox1"
         Me.PictureBox1.Size = New System.Drawing.Size(25, 18)
         Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
         Me.PictureBox1.TabIndex = 151
         Me.PictureBox1.TabStop = False
+        Me.PictureBox1.Visible = False
         '
         'Label2
         '
@@ -2997,7 +2999,7 @@ Partial Class frmKundenblatt
         '
         Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
-        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
+        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
         Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
         Me.cntxtCntxtMDM.Text = "cntxtMDM"
         '
diff --git a/SDL/kunden/frmKundenblatt.vb b/SDL/kunden/frmKundenblatt.vb
index c104c4ac..899818e0 100644
--- a/SDL/kunden/frmKundenblatt.vb
+++ b/SDL/kunden/frmKundenblatt.vb
@@ -1224,14 +1224,23 @@ Public Class frmKundenblatt
 
 
     Sub initSDLListeRed()
+
+        Dim totalHeight As Integer = dgvSperrliste.ColumnHeadersHeight
+
         For Each r As DataGridViewRow In dgvSperrliste.Rows
             If r.Cells("SperrNr").Value > 0 Then
                 r.DefaultCellStyle.ForeColor = Color.Red
             Else
                 r.Cells("SperrBez").Value = ""
             End If
+
+            totalHeight += r.Height
+
         Next
 
+        dgvSperrliste.Height = totalHeight + 2
+
+
     End Sub
     'Wenn ein Eintrag in der CBO ausgewählt wurde wird dieser in der DB eingetragen
     '  Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs)