Private Sub Form_Load()
 
  ' bei Fehlern nicht abbrechen
  On Error Resume Next
 
  Dim xlApp As Object, X As Long, xlWorkBook As Object
  Dim xlsFilename As String, xlsArbeitsblatt As String
 
  ' Name der Exceldatei
  xlsFilename = "C:\Temp\Excel\Mappe1.xls"
 
  ' Name des Arbeitsblattes in der Exceldatei
  xlsArbeitsblatt = "Tabelle1"
 
  ' Excel öffnen
  Set xlApp = CreateObject("Excel.Application")
 
  ' wenn Fehler --> Meldung
  If Error <> "" Then
 
    ' Fehlermeldung
    MsgBox Error, vbExclamation
 
    ' Sub beenden
    Exit Sub
 
  End If
 
  ' Exceldatei öffnen
  Set xlWorkBook = xlApp.Workbooks.Open(xlsFilename)
 
  ' wenn Fehler --> Meldung
  If Error <> "" Then
 
    ' Excel beenden
    xlApp.Quit
 
    ' Fehlermeldung
    MsgBox Error, vbExclamation
 
    ' Sub beenden
    Exit Sub
 
  End If
 
  ' Combobox-Inhalt löschen
  Combo1.Clear
 
  ' Auslesen bei Zeile 1 beginnen
  X = 1
 
  ' Exceldatei so lange auslesen, bis zur ersten leeren Zelle in Spalte A
  Do Until xlWorkBook.Worksheets(xlsArbeitsblatt).Cells(X, 1) = ""
 
    ' Zelleninhalt zur Combobox hinzufügen
    Combo1.AddItem xlWorkBook.Worksheets(xlsArbeitsblatt).Cells(X, 1)
 
    ' Zeilenindex um 1 erhöhen
    X = X + 1
  Loop
 
  ' Schließt die Exceldatei wieder, eventuelle Änderungen
  ' (bsw. durch Formeln) werden nicht gespeichert
  xlWorkBook.Close False
 
  ' Excel beenden
  xlApp.Quit
 
End Sub

Viel Spass,
R@lf