Specifieke Combobox vullen met varabele.

[Woffels]

Hallo,

Ik heb een aantal comboboxen, ComboBox1 tm ComboBox10
Ik wil nu de een specifieke combobox vullen dmv variabele A. Dus als A = 1 dan moet Combobox1 gevuld worden.
"Lijstmetwaardes" is uiteraard de verzameling die in de Combobox komt.

Ik dacht aan zoiets

A = 1
ComboBox(A).ListFillRange = "Lijstmetwaardes"

Maar dat werkt niet.
Hoe te programmeren??

 

[edmoor]

Zijn dat comboboxen in een Userform of op een Werkblad?

 

[gast0660]

Zonder vb bestandje of een antwoord op Edmoor zijn vraag?????
Met een extra combobox, zoiets mischien:

Private Sub ComboBoxkies_Change()
Select Case ComboBoxkies
        Case "keuze1"
            ComboBox1.ListFillRange = "Lijstmetwaardes"
        Case "keuze2"
            ComboBox.ListFillRange = "Lijstmetwaardes1"
        Case "keuze3"
                 ComboBox.ListFillRange = "Lijstmetwaardes2"
        End Select
End Sub

 

[Woffels]

Hallo,

Het gaat om comboboxen op een werkblad.
Het gaat me er om dat ik invloed wil hebben op welke combobox ik ga vullen, niet waarmee.

ComboBox1.ListFillRange = "Lijstmetwaardes"

Dus in deze instructie wil ik de 1 vervangen voor een variabele.

Zoiets als dit:

ComboBox(A).ListFillRange = "Lijstmetwaardes"

Maar dat werk niet.

 

[edmoor]

En gebruik je dan Formulier- of ActiveX comboboxes?

Sub tst()
    Dim OleObj As OLEObject
    Dim shp As Object
    
    [COLOR="#008000"]'ActiveX----------------------------------------[/COLOR]
    For Each OleObj In ActiveSheet.OLEObjects
        If TypeName(OleObj.Object) = "ComboBox" Then
            With OleObj.Object
                .List = Array("A", "B", "C")
            End With
        End If
    Next OleObj

    [COLOR="#008000"]'Formulier---------------------------------------[/COLOR]
    For Each shp In ActiveSheet.Shapes
        If InStr(1, shp.Name, "Drop Down") Then
            shp.ControlFormat.AddItem Array(1, 2, 3)
        End If
    Next

End Sub

 

[Woffels]

Active X.

 

[edmoor]

Ok. Het voorbeeld staat er in feite al maar bij deze nog eentje:

For i = 1 To 2
    With ActiveSheet.OLEObjects("ComboBox" & i).Object
        Select Case i
            Case 1: .List = Array("A", "B", "C")
            Case 2: .List = Array("D", "E", "F")
        End Select
    End With
Next i