Alternativ til indexes til VBA objekter.

Not QUITE sure it is your trying to do so it isnt easy to give a solution.
WHY are you trying to call all 50 combo boxes CHANGE event in a loop!

you can make an array of combo boxes! Make on ethen copy it and you will be asked if you want to make an array. Answer YES and you will get a change event with an index which is the number of the combo in the array!

If you ARE trying to call ALL X (50) CHANGE events then I assume that you have also CODE in the event procedure which is different for each combo. If that is correct then you HAVE concidered what code is needed for each. So you could just as wel make one function and call that with a number

for i = 1 to 50
  YourFunction(i)

next i

PUBLIC FUNCTION YourFunction(i as integer)

  SELECT CASE i
      CASE 1
      ...
      CASE 2
      ...
      .
      .
      CASE ELSE
      ...
    END SELECT
     


END FUNCTION

Hi Terry.

I'll continue in english... ;)

I already know how to insert combo objects on fly.
It can be done by using the following code:
topvalue = 60
for i = 1 to 50
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, DisplayAsIcon:=False, Left:=114, Top:=topvalue, Width:=180, Height:=13.5).Select
topvalue = topvalue + 20
next i

--- SNIP --

but how do I create one change-event to all of them, by using one sub, when I'm not able to use the index function ?

I have to make all this as dymaical as possible, because the user shall be able to change the number of combos to a self-chosen number.

Hope you get my point ;)

If we are talking Excel then I have no idea!

Hi again.

I just grep the macro code out of Excel.
When talking about VBA it doesn't matter if we are in a excel or a word environment =)

HI newage
I havent worked with VBA very much in Excel or Word, and in Access which I have worked with quite a lot it isnt quite the same!

In Access I would do something on these lines.

Sub NewControls()
    Dim frm As Form
    Dim ctlLCombo As Control
    Dim i As Integer
   
    Dim intX As Integer, intY As Integer

    intX = 1000
    intY = 100
   
    DoCmd.OpenForm "frmNewControls", acDesign
   
    For i = 1 To 5
        Set ctlCombo = CreateControl("frmNewControls", acComboBox, , "", "", intX + (i * 100), intY + (i * 100))
       
        'Name the combo
        ctlCombo.Name = "cbo" & i
        'Set the OnClick event to call MyFunction

        ctlCombo.OnClick = "=MyFunction(" & i & ")"
       
    Next i
   
    DoCmd.Close acForm, "frmNewControls", acSaveYes
   
End Sub

The MyFunction looks like this

Public Function MyFunction(Index As Integer)
    MsgBox "Index = " & Index
   
End Function

I close this thread.

Seems not to be a solution anywhere on then net ;(

So... I'll split the point 50% / 50%.