Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        MsgBox("Der Export nach Excel wird nun gestartet!" & vbCrLf & "Dies" & _
        "kann einen Moment dauern!", MsgBoxStyle.Information, "Digital Data -" & _
        "Tarif-Kalkulator")
        Me.Cursor = Cursors.WaitCursor
        Me.DSTARIFE1.TBPLZ_ENTFERNUNG_MAUT_KM.Clear()
        Me.DAPLZ_ENTFERNUNG_MAUTKM.Fill(DSTARIFE1.TBPLZ_ENTFERNUNG_MAUT_KM)
        Try
            Dim myExcel As New Excel.Application
            myExcel.Application.Workbooks.Add()
            myExcel.Visible = True
            Dim myColumn As DataColumn
            Dim colIndex As Integer
            Dim rowIndex As Integer
            For Each myColumn In DSTARIFE1.TBPLZ_ENTFERNUNG_MAUT_KM.Columns
                colIndex += 1
 
                myExcel.Cells(1, colIndex) = myColumn.ColumnName
            Next
 
            Dim myRow As DataRow
            rowIndex = 1
            For Each myRow In DSTARIFE1.TBPLZ_ENTFERNUNG_MAUT_KM.Rows
                rowIndex += 1
                colIndex = 0
                Dim myColumn2 As DataColumn
                For Each myColumn2 In DSTARIFE1.TBPLZ_ENTFERNUNG_MAUT_KM.Columns
                    colIndex += 1
                    myExcel.Cells(rowIndex, colIndex) = myRow( _
                      myColumn2.ColumnName).ToString()
                Next myColumn2
 
            Next myRow
            Dim mySheet As Excel.Worksheet = CType(myExcel.Sheets("Orders" & _
              "Import"), Excel.Worksheet)
            mySheet.Name = "Orders Import"
            mySheet.Cells.Select()
            mySheet.Cells.EntireColumn.AutoFit()
            mySheet.Range("A1").Select()
 
 
        Catch ex As Exception
 
        End Try
        Me.Cursor = Cursors.Default
    End Sub