Object gebruiken in code

[Joost.van.Steeg]

Ik wist niet mijn probleem kort in een titel te verwoorden
De stituatie is als volgt:
Ik heb twee comboboxen -> cboStelVHP1 en cboStelVHP2
Afhankelijk van welke box geselecteerd wordt zou ik willen dat sub LadenTypes wordt uitgevoerd waarbij cboStelVHPnr staat voor de geselecteerde combobox.

Mijn doel is dus dat ik bij het selecteren van cboStelVHP2, visual basic in de sub LadenTypes "cboStelVHPnr.AddItem lstItem" leest als "cboStelVHP2.AddItem lstItem".

Heeft iemand hiervoor een oplossing ?

Public cboStelVHPnr as String

------------------------------------------------------------------------------

Private Sub cboStelVHP1_Enter()
    cboStelVHPnr = cboStelVHP1
        LadenTypes 'ga naar de sub om de types in de lijst te laden
End Sub

-----------------------------------------------------------------------------

Private Sub cboStelVHP2_Enter()
    cboStelVHPnr = cboStelVHP2
        LadenTypes 'ga naar de sub om de types in de lijst te laden
End Sub

--------------------------------------------------------------------------------
Private Sub LadenTypes()
    Dim lstItem As String
        rowNumber = 3
            Do
                lstItem = Worksheets("Rekenschema").Cells(rowNumber, 1).Value
                cboStelVHPnr.AddItem lstItem
                rowNumber = rowNumber + 1
            Loop Until Worksheets("Rekenschema").Cells(rowNumber, "A").Value = ""
End Sub
--------------------------------------------------------------------------------

 

[Joost.van.Steeg]

Ben er inmiddels zelf achter gekomen

Public cboStelVHPnr as String

------------------------------------------------------------------------------

Private Sub cboStelVHP1_Enter()
    cboStelVHPnr = "cboStelVHP1"
        LadenTypes 'ga naar de sub om de types in de lijst te laden
End Sub

-----------------------------------------------------------------------------

Private Sub cboStelVHP2_Enter()
    cboStelVHPnr = "cboStelVHP2"
        LadenTypes 'ga naar de sub om de types in de lijst te laden
End Sub

--------------------------------------------------------------------------------
Private Sub LadenTypes()
    Dim lstItem As String
        rowNumber = 3
            Do
                lstItem = Worksheets("Rekenschema").Cells(rowNumber, 1).Value
                frmProductieInvoer.Controls(cboStelVHPnr).AddItem lstItem
                rowNumber = rowNumber + 1
            Loop Until Worksheets("Rekenschema").Cells(rowNumber, "A").Value = ""
End Sub
--------------------------------------------------------------------------------

 

[Wigi]

Ben er inmiddels zelf achter gekomen

Zet hem dan op opgelost aub.