Private Sub saveInventurliste()
 
        Dim xlsApp2 As Excel.Application = New Excel.Application
        Dim xlsWorkBook2 As Excel.Workbook
        Dim xlsWorkSheet2 As Excel.Worksheet
 
        xlsWorkBook2 = xlsApp2.Workbooks.Add()
        xlsWorkSheet2 = xlsWorkBook2.ActiveSheet 'Sheets("sheet1")
 
 
        For Zeile = 0 To DataGridView1.RowCount - 1
            For Spalte = 0 To DataGridView1.ColumnCount - 1
                xlsWorkSheet2.Cells(Zeile + 2, Spalte + 1).Value() = _
                  DataGridView1.Rows(Zeile).Cells(Spalte).Value.ToString
            Next
        Next
 
        xlsWorkSheet2.SaveAs("D:\vbexcel.xlsx")
        xlsWorkBook2.Close()
        xlsApp2.Quit()
 
    End Sub