Dim xls_Appl As Excel.Application
        Dim xls_Mappe As Excel.Workbook
        Dim xls_Blatt As Excel.Worksheet
        Dim Anzahlzeilen As Integer
        xls_Appl = New Excel.Application()
        xls_Appl.Visible = True
        xls_Mappe = xls_Appl.Workbooks.Add()
        xls_Blatt = CType(xls_Mappe.ActiveSheet, Worksheet)
 
 
        'hier muß der Name des zu exportierenden DataGridViews rein 
        With DGV
            For Spalte As Integer = 0 To .Columns.Count - 1
                xls_Blatt.Cells(1, Spalte + 1).Value = .Columns( _
                  Spalte).HeaderText
                xls_Blatt.Cells(1, Spalte + 1).Font.Bold = True
            Next
            Anzahlzeilen = .Rows.Count
            If .AllowUserToAddRows = True Then
                Anzahlzeilen = Anzahlzeilen - 1 ' Leerzeile abziehen 
            End If
            For Zeile As Integer = 0 To Anzahlzeilen - 1
                For Spalte As Integer = 0 To .Columns.Count - 1
                    xls_Blatt.Cells(Zeile + 2, Spalte + 1).Value() = .Rows( _
                      Zeile).Cells(Spalte).Value()
                Next
            Next
        End With

 Dim xls_Appl As Excel.Application
        Dim xls_Mappe As Excel.Workbook
        Dim xls_Blatt As Excel.Worksheet
        Dim Anzahlzeilen As Integer
        xls_Appl = New Excel.Application()
        xls_Appl.Visible = True
        xls_Mappe = xls_Appl.Workbooks.Add()
        xls_Blatt = CType(xls_Mappe.ActiveSheet, Worksheet)