Private Sub Form_Load()
 
    Dim i As Integer
 
' Workbook öffnen
    On Error Resume Next
    Dim oExl As Object
    Set oExl = CreateObject("Excel.Application")
    oExl.Workbooks.Open "C:\Testordner\Testdaten.xls"
    If Err > 0 Then
        MsgBox "Exceldatei konnte nicht gefunden oder geöffnet werden.", _
        vbExclamation, "Dateifehler"
        Exit Sub
    End If
 
    ' Tabelle selektieren
    oExl.ActiveWorkbook.Worksheets("Tabelle1").Select
 
    ' ComboBox füllen (entsprechend anpassen)
    For i = 1 To 100  ' ?????
    If Not oExl.ActiveSheet.Cells(i, 2).Value = "" Then
    Combo1.AddItem oExl.ActiveSheet.Cells(i, 2).Value
    End If
    Next i
 
    Combo1.Text = Combo1.List(0)
 
    ' alles schließen
    oExl.ActiveWorkbook.Close SaveChanges:=True
    oExl.Workbooks.Close
    Set oExl = Nothing
 
End Sub