Private Sub ButImporttb_Click(sender As Object, e As EventArgs) Handles ButImporttb.Click
        '##### Import Openfile xml   muss noch angepasst werden   nur imex.xml dürfen importiert werden!!!!
        Dim openFileDialog As OpenFileDialog = New OpenFileDialog()
        openFileDialog.Filter = "Importtyp (*.xml)|*.xml"  ' Filter setzten xml
        openFileDialog.FileName = "imex" 'legt den Dateinamen fest
        openFileDialog.AutoUpgradeEnabled = False  'Ändert das GUI Fenster aussehen..
        If openFileDialog.ShowDialog() = DialogResult.OK Then
            Dim xmlFilePath As String = openFileDialog.FileName
            Using ds As DataSet = New DataSet()
                ds.ReadXml(xmlFilePath)
                DataGridView1.DataSource = ds.Tables(0)
                '#####

                '#####

            End Using
        End If



    End Sub

Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting

    End Sub