Private Sub Cell_kundenidx(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles _
      DataGridView1.CellMouseClick
        Cursor.Current = Cursors.WaitCursor
        kdnr = DataGridView1.CurrentRow.Cells(0).Value.ToString.Trim
        kdplz = DataGridView1.CurrentRow.Cells(2).Value.ToString.TrimEnd
        kdname = DataGridView1.CurrentRow.Cells(1).Value.ToString.Trim
        kdort = DataGridView1.CurrentRow.Cells(3).Value.ToString.Trim
        DGV_auftraege.Rows.Clear()
        kdstrasse = Me.Name4TextBox.Text
        chart_11()
        VB_Formatierung.formatierung_DGV()
        findVSSVAR1()
        gruppenkto()
        umsatzpg1()
        dgv_Umsatzwgrp.Sort(dgv_Umsatzwgrp.Columns(0), _
          System.ComponentModel.ListSortDirection.Descending)
        Cursor.Current = Cursors.Default
    End Sub