rowsource verwijzen naar een naam van de gegevens selectie in een andere file/bestand

[Friend]

Beste forummers,

Is het mogelijk om bij rowsource van een combobox op een userform te verwijzen naar een gegevensbereik in een andere excel filenaam/bestand.

Nu verwijs ik naar relatienummer. Maar dit is in het eigen/zelfde bestand. Dat werkt prima. Alleen dat moet ik nu in elk afzonderlijke file de nawdata zetten. Dat maakt de files te zwaar en niet juist ivm aanpassing etc.

De andere filenaam is "nawdat" en het werkblad "cmbdat" en de naam van het gegevensbereik "relatienummer"

Friend


Bekijk bijlage combobox.pdf

 

[Timshel]

Volgens mij niet.
Zoiets kan wel:

Private Sub UserForm_Initialize()
    With GetObject("C:\Temp\nawdat.xlsx")
        ComboBox1.List = Application.Transpose(.Sheets("cmbdat").Range("relatienummer"))
        .Close False
    End With
End Sub

 

[Friend]

TimShel,

Hartelijk dank voor je reactie:thumb:

Ik heb je code ingegevuld bij het userform en de rowsource leeg gemaakt.
Maar het wil niet helemaal lukken.

In de bijlagen mijn 2 voorbeeld files

Kan je mij ook zeggen wat ik niet goed doe?

Hartelijk dank!

Friend

 

[Timshel]

Een paar details moeten even anders in jouw situatie:

Private Sub [COLOR="#FF0000"]UserForm[/COLOR]_Initialize()
    With GetObject("C:\ReiskostDeclTest\org\nawdat[COLOR="#FF0000"]a[/COLOR].xlsx")
        cmbRelatienummer.List = .Sheets("cmbdat[COLOR="#FF0000"]a[/COLOR]").Range("relatienummer")[COLOR="#FF0000"].Value[/COLOR] 'ipv Application.Transpose
        .Close False
    End With
End Sub

 

[Friend]

Timshel,

Hartelijk dank voor je antwoord:thumb:

Werkt perfect

Thanks

Friend

 

[snb]

of

Private Sub UserForm_Initialize()
    With GetObject("C:\ReiskostDeclTest\org\nawdata.xlsx")
'        cmbRelatienummer.List = .Sheets("cmbdata").Range("relatienummer").Value
        cmbRelatienummer.List = .application.Range("relatienummer").Value
        cmbRelatienummer.List = .application.[relatienummer].Value
        cmbRelatienummer.List = .names("relatienummer").referstoRange.Value
        .Close False
    End With
End Sub

 

[Friend]

Snb,

Hartelijk dank voor je reactie :thumb:

en natuurlijk hartelijk dank ook voor jouw oplossing:thumb:

Kan je mij misschien ook zeggen wat nu het verschil is tussen de (code) oplossing van Timshel en jou?

In eerste instantie zou ik zeggen jij bouwt hem op per regel?

Friend

 

[Friend]

Snb,

Kan het zijn dat jouw code toch kijkt of het werkblad cmbdata in het bestand zit waar het userform in zit. Ik had daar nog een oud werkblad in staan met de naam cmbdata maar nadat ik het verwijdert heb krijg ik toch een foutmelding.

Friend