vullen combobox met gegevens uit ander xls-bestand

[rudolphje]

Hallo,

Ben behoorlijk nieuw wat betreft vba in excel.
Ik zou graag aan de hand van een adressenlijst (uit adressen.xls) een combobox in een al geopend excelbestand (bijv test.xls) willen vullen. Ik ben er al achter dat je de adressen met behulp van Open For Input kunt lezen/bewerken, zonder dat je het bestand daadwerkelijk in excel opent. Echter is het daarna niet mogelijk om het bereik van de adressen te bepalen met CurrentRegion? Ik wil namelijk aan de hand van 2 buttons "nieuw" en "lezen" adressen kunnen toevoegen of bekijken.

Sub btnlezen_Click()
'inlezen adressen

Open "N:\EXCEL03\XLstart\lucht\sheets\Adressen.xls" For Input Access Read As #1
Application.Workbooks("Adressen.xls").Worksheets.Select

Close #1
End Sub

Wie helpt me verder?

 

[rudolphje]

wellicht te veel vragen in 1 x, dus heb (ook voor mezelf) een stapje terug gemaakt.
kom echter volgende problemen tegen (met rood in code aangegeven):

Sub btnlezen_Click()                                                'inlezen adressen voor lijst met opdrachtgevers
Dim i As Integer
Dim SourceWB As Workbook

With Me.ComboBox1
    [COLOR="Red"].clear[/COLOR]
    Application.ScreenUpdating = False
    Set SourceWB = Workbooks.Open("N:\EXCEL03\XLstart\lucht\sheets\Adressen.xls", False, True)
    ListItems = SourceWB.Worksheets(1).Range("A2:A10").Value
    SourceWB.Close False
    Set SourceWB = Nothing
    ListItems = Application.WorksheetFunction.Transpose(ListItems)

    For i = 1 To UBound(ListItems)
        [COLOR="Red"]ComboBox1.AddItem ListItems(i)[/COLOR]     [COLOR="Lime"]hier staat wel de juiste opdrachtgever, maar kan niet in combobox worden ingevuld?[/COLOR]                     
        Next i
        .ListIndex = -1                                       
        Application.ScreenUpdating = True

    End With
End Sub

bij 2e fout geeft ie de melding:

fout 70 tijdens uitvoering
u hebt geen machtiging