ComboBox

[Jack Nouws]

Goeie dag allemaal

Kun je een ComboBox laten vullen met gegevens uit een ander bestand?

Groeten Jack

 

[Roncancio]

Goeie dag allemaal

Kun je een ComboBox laten vullen met gegevens uit een ander bestand?

Groeten Jack

Ja, dat kan.

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Ja, dat kan.

Met vriendelijke groet,


Roncancio

Hoe zet je zoiets achter elkaar dan?

Set MyRange = ??????

Windows("Datas.xls").Activate
Sheets("DataKlant").Select

Groet Jack

 

[Jack Nouws]

Hoe zet je zoiets achter elkaar dan?

Set MyRange = ??????

Windows("Datas.xls").Activate
Sheets("DataKlant").Select

Groet Jack

En hoe moet dit er dan uit komen te zien?

Sub vul_combobox2()
Dim Rij As Integer
    Rij = 2
   klantinfo.zoeknaam.Clear
    While [COLOR="Red"]??????[/COLOR].Cells(Rij, "B") <> ""
        If [COLOR="Red"]?????[/COLOR].Range(Rij & ":" & Rij).EntireRow.Hidden = False Then
            With klantinfo.zoeknaam
                .AddItem [COLOR="Red"]?????[/COLOR].Cells(Rij, "F")
            End With
        End If
        Rij = Rij + 1
    Wend
End Sub

Groet Jack

 

[Roncancio]

Hoe zet je zoiets achter elkaar dan?

Set MyRange = ??????

Windows("Datas.xls").Activate
Sheets("DataKlant").Select

Groet Jack

Met onderstaande code wordt combobox1 gevuld met de gegevens van Range A1 t/m A10 bij het opstarten van de userform.

Private Sub UserForm_Initialize()
Set bereik = Workbooks("Datas").Worksheets("Dataklant").Range("A1:A10")
ComboBox1.RowSource = bereik.Address(External:=True)

End Sub

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Met onderstaande code wordt combobox1 gevuld met de gegevens van Range A1 t/m A10 bij het opstarten van de userform.

Private Sub UserForm_Initialize()
Set bereik = Workbooks("Datas").Worksheets("Dataklant").Range("A1:A10")
ComboBox1.RowSource = bereik.Address(External:=True)

End Sub

Met vriendelijke groet,


Roncancio

Het werkt!!! Dank je voor de medewerking!

Groetjes Jack