Private Sub ButImpBew_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles ButImpBew.Click
 
        Dim file As String
 
        OFD.Filter = "Excel-Dateien (*.xls)|*.xls"
        OFD.ShowDialog()
 
 
        file = OFD.FileName
 
        If file = "" Then Exit Sub
 
        Dim xls_Appl As Microsoft.Office.Interop.Excel.Application              _
          ' Excel Anwendung
        xls_Appl = New Microsoft.Office.Interop.Excel.Application()             _
        ' Excel Instanz bilden
 
        Try
            xls_Appl.Workbooks.Open(file)
        Catch
            MsgBox("Die von Ihnen gewählte Datei konnte nicht geöffnet" & _
              "werden.", MsgBoxStyle.Information, "Fehler")
        End Try
 
        Dim n As Integer = 3
 
 
 
Bewertung_Einlesen:
 
        If Not xls_Appl.Cells(n + 1, 1).value = "" Then
 
            Me.Validate()
            Me.BSBewertung.EndEdit()
            Me.TABewertung.Update(Me.DSExkursionsdaten)
 
            BSBewertung.AddNew()
 
            TPDatumDate.Text = xls_Appl.Cells(n + 1, 2).value
            TxtBewKlassen.Text = xls_Appl.Cells(n + 2, 2).value
            TxtBewLehrer.Text = xls_Appl.Cells(n + 3, 2).value
            TxtBewSterne.Text = xls_Appl.Cells(n + 4, 2).value
            TxtBewBewertung.Text = xls_Appl.Cells(n + 5, 2).value
            TxtBewPraesent.Text = xls_Appl.Cells(n + 6, 2).value
 
            If xls_Appl.Cells(n + 7, 2).value = "nein" Then
                CBAnfrageAbgewiesen.Checked = False
            Else
                CBAnfrageAbgewiesen.Checked = True
            End If
 
            n = n + 9
            GoTo Bewertung_Einlesen
 
        End If
 
        Me.Validate()
        Me.BSBewertung.EndEdit()
        Me.TABewertung.Update(Me.DSExkursionsdaten)
 
        MsgBox("Exkursion erfolgreich geladen.", MsgBoxStyle.OkOnly, "Laden" & _
          "erfolgreich")
 
        xls_Appl.Application.Quit()
 
    End Sub