Dim xls_Appl As Excel.Application               ' Excel Anwendung
        Dim xls_Mappe As Excel.Workbook                 ' Excel Arbeitsmappe
        Dim xls_Blatt As Excel.Worksheet                ' Excel Blatt (Tabelle)
        Dim Anzahlzeilen As Integer
 
        xls_Appl = New Excel.Application()              ' Excel Instanz bilden
        xls_Appl.Visible = True
        xls_Mappe = xls_Appl.Workbooks.Add()
        xls_Blatt = xls_Mappe.ActiveSheet
 
        With dgvstat13
 
            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.ToString
 
                Next
 
            Next
 
        End With