Try
            Dim Excel As Excel.Application   
            Dim EXMappe As Excel.Workbook    
            Dim EXBlatt As Excel.Worksheet  
            Dim AZ As Integer              
 
 
         ' neue Instanz von Excel erstellen und ggf. sofort anzeigen
            Excel = New Excel.Application
            System.Threading.Thread.CurrentThread.CurrentCulture = _
              System.Globalization.CultureInfo.CreateSpecificCulture("en-US")
            Excel.Visible = Not FillHiddenMode
 
            ' neue Mappe hinzufügen
         EXMappe = Excel.Workbooks.Add()
 
            ' aktuelles Blatt anzeigen
            EXBlatt = EXMappe.ActiveSheet
 
            With dgv
                ' Spaltenüberschriften übertragen
               For Spalte As Integer = 0 To .Columns.Count - 1
                    EXBlatt.Cells(1, Spalte + 1).Value = .Columns( _
                      Spalte).HeaderText
                Next
 
              ' Anzahl Datenzeilen
                AZ = .Rows.Count
                If .AllowUserToAddRows = True Then
                    AZ = AZ - 1
                End If
 
        '        ' Datenzeilen übertragen
                For Zeile As Integer = 0 To AZ - 1
                    For Spalte As Integer = 0 To .Columns.Count - 1
                        EXBlatt.Cells(Zeile + 2, Spalte + 1).Value() = _
                          .Rows(Zeile).Cells(Spalte).Value.ToString
 
                    Next
                Next
            End With
 
 
            ' Excel jetzt anzeigen
            If FillHiddenMode Then Excel.Visible = True
            Return True
 
        'Catch ex As Exception
            ' Fehler
            MsgBox("Error!" & vbCrLf & _
              ex.Message, MsgBoxStyle.Exclamation)
            Return False
        End Try