Private Sub Excel_HanMove()
        Dim save As New SaveFileDialog
        save.Filter = ("Excel-Dateien (*.xls)|*.xls")
        save.Title = ("HANMOV speichern unter:")
        save.FileName = "hanmov_" & My.Computer.Clock.LocalTime.Date.Day & _
          My.Computer.Clock.LocalTime.Date.Month & _
          My.Computer.Clock.LocalTime.Date.Year & ".xls"
        'Zeigt den Datei-Dialog an
        save.ShowDialog()
        Try
            Dim myExcel As New Microsoft.Office.Interop.Excel.Application 'old: 
            ' 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 MyDataset.VWDL_HANMOV_ZIEL.Columns
                colIndex += 1
 
                myExcel.Cells(1, colIndex) = myColumn.ColumnName
            Next
 
            Dim myRow As DataRow
            rowIndex = 1
            For Each myRow In MyDataset.VWDL_HANMOV_ZIEL.Rows
                rowIndex += 1
                colIndex = 0
                Dim myColumn2 As DataColumn
                For Each myColumn2 In MyDataset.VWDL_HANMOV_ZIEL.Columns
                    colIndex += 1
                    myExcel.Cells(rowIndex, colIndex) = myRow( _
                      myColumn2.ColumnName).ToString()
                Next myColumn2
 
            Next myRow
            Dim mySheet As Microsoft.Office.Interop.Excel.Worksheet = CType( _
              myExcel.Sheets("Angelegte Sendungen OnRoad"), _
              Microsoft.Office.Interop.Excel.Worksheet)
            mySheet.Name = "Angelegte Sendungen OnRoad"
            mySheet.Cells.Select()
            mySheet.Cells.EntireColumn.AutoFit()
            mySheet.Range("A1").Select()
            MsgBox("Erfolgreich erzeugt!")
 
        Catch ex As Exception
 
        End Try
    End Sub