Private Sub cmbAuswahl_Click()
'excel.Application.Quit
 
'Werte aus Excel-Zellen in TextBox 1 - 11 einlesen:
  Dim lngRowIndex As Long
  Dim intColIndex As Integer
 
'Geänderte Daten -> Excel-Tabelle:
  lngRowIndex = cmbAuswahl.ListIndex + 2
 
  excel.Application.Quit
 
   Dim strFileName1 As String
    strFileName1 = "Archivzettel"
 
 
    excel.Application.Quit
 
    Dim myExcel As Object
    Dim myWorkbook As Object
    Dim mySheet As Object
    Set myWorkbook = excel.Workbooks.Open(App.Path & "\" & strFileName1 & _
      ".xls")    '####################################
    Set mySheet = myWorkbook.Sheets.Item(1) 'Referenz auf erste Tabelle setzen
 
    For intColIndex = 1 To 11
 
    Text1(intColIndex).Text = mySheet.Cells(lngRowIndex, intColIndex).Value     _
      '#########################################
 
    Next intColIndex
 
 excel.Application.Quit
    Set mySheet = Nothing
    Set myWorkbook = Nothing
    Set myExcel = Nothing
 
  Dim F As Integer
  Dim sLine As String
 
   excel.Application.Quit
    Set mySheet = Nothing
    Set myWorkbook = Nothing
    Set myExcel = Nothing
 
End Sub