[color=blue]Private Sub[/color] cmbAuswahl_Click()
 
  [color=darkgreen]' Werte aus Excel-Zellen In TextBox 1 - 11 einlesen:
  [color=blue]Dim[/color] lngRowIndex [color=blue]As Long[/color]
  [color=blue]Dim[/color] intColIndex [color=blue]As Integer[/color]
 
  [color=darkgreen]' Geänderte Daten -> Excel-Tabelle:
  lngRowIndex = cmbAuswahl.ListIndex + 2
 
  [color=blue]Dim[/color] strFileName1 [color=blue]As String[/color]
  strFileName1 = "Archivzettel"
 
  [color=blue]Dim[/color] sFile [color=blue]As String[/color]
  [color=darkgreen]' vollständiger Dateiname aus App.Path + strFileName1 + 
  ' XLS
  [color=darkgreen]' wenn App.Path ="C:\", ... dann kein <\> dranhängen
  sFile = App.Path
  [color=blue]If[/color] Right(sFile, 1) <> "\" [color=blue]Then[/color] _
    sFile = sFile & "\"
  sFile = sFile & strFileName1 & ".xls"
 
  [color=blue]Dim[/color] myExcel [color=blue]As Object[/color]
  [color=blue]Dim[/color] myWorkbook [color=blue]As Object[/color]
  [color=blue]Dim[/color] mySheet [color=blue]As Object[/color]
 
  [color=blue]Set[/color] myExcel = CreateObject("Excel.Application") _
    [color=darkgreen]' Excel-Session erzeugen
  [color=blue]Set[/color] myWorkbook = myExcel.Workbooks.Open(sFile)  _
  [color=darkgreen]' Datei öffnen
  [color=blue]Set[/color] mySheet = myWorkbook.Worksheets(1)          _
  [color=darkgreen]' Referenz auf erste Tabelle setzen
 
  [color=blue]For[/color] intColIndex = 1 [color=blue]To[/color] 11
    [color=darkgreen]' Textboxen füllen
 
    [color=darkgreen]' wenn Zelle einen Fehlerwert enthält, Textbox mit 
    ' <Error> füllen
    [color=blue]If[/color] IsError(mySheet.Cells(lngRowIndex, intColIndex)) _
      [color=blue]Then[/color]
      Text1(intColIndex).Text = "<Error>"
      [color=darkgreen]' oder folgende Zeile liefert die 
      ' Excel-Fehlernummer
      [color=darkgreen]' Text1(intColIndex).Text = CStr(mySheet.Cells( 
      ' lngRowIndex, intColIndex))
    [color=blue]Else[/color]
      [color=darkgreen]' wenn ZellenInhalt ok, dann diesen In Text umwandeln 
      ' und In Textbox einfügen
      Text1(intColIndex).Text = [color=blue]CStr[/color](mySheet.Cells( _
        lngRowIndex, intColIndex))
    [color=blue]End If[/color]
  [color=blue]Next[/color] intColIndex
 
  myWorkbook.Close [color=blue]False[/color]  [color=darkgreen]' geöffnete 
  ' Datei schließen
  myExcel.Quit            [color=darkgreen]' Excel schließen
 
  [color=blue]Set[/color] mySheet = [color=blue]Nothing[/color]
  [color=blue]Set[/color] myWorkbook = [color=blue]Nothing[/color]
  [color=blue]Set[/color] myExcel = [color=blue]Nothing[/color]
 
[color=blue]End Sub[/color]

Viel Spass,
R@lf