Public Shared Sub Produce_XLS_Filter(ByVal vDataset As DataSet, ByVal _
   vSheet_Name As String, ByVal Dateiname As String)
        Try
 
            Dim dt As DataTable
            Dim xl As New Excel.Application
            xl.Workbooks.Add()
            xl.ActiveSheet.Name = vSheet_Name
            xl.Visible = False
            xl.ScreenUpdating = False
 
            'Die Datatable definieren
            dt = vDataset.Tables(0)
 
            'Add the column headings for the Customers
            Dim dc As DataColumn
            Dim iCols As Int32 = 0
            For Each dc In dt.Columns
                xl.Range("A1").Offset(0, iCols).Value = dc.ColumnName
                iCols += 1
            Next
 
            'Add the data
            Dim iRows As Int32
            For iRows = 0 To dt.Rows.Count - 1
                xl.Range("A2").Offset(iRows).Resize(1, iCols).Value = dt.Rows( _
                  iRows).ItemArray()
            Next
            With xl.ActiveSheet.Range("A1")
                .AutoFilter()
                .AutoFormat(Excel.XlRangeAutoFormat.xlRangeAutoFormatSimple) _
                  'xlRangeAutoFormatSimple
            End With
            Dim Filename As Object = Dateiname
            xl.SaveWorkspace(Filename)
            xl = Nothing
            'xl.ScreenUpdating = True
        Catch ex As Exception
 
 
        End Try
 
    End Sub

Ich glaube nicht, dass Zitronenfalter wirklich Zitronen falten