Excel 2003 Opmaak van besturingselement

[Verwijderd]

Ik heb een excel sheet met 3 werkbladen.
Op tabblad 1 staan een aantal besturingselementen ( circa 150 keuzevelden )
Deze moeten gevuld worden met data van tabblad 3.

Als ik op tabblad 1 de properties opvraag van het besturingselement kan ik via het tabblad besturingselelement het invoerbereik ingeven. ( van tabblad 3 van de sheet dus )

Dit werkt prima voor 1 cel. Ik heb nu in mijn eerste keuzeveld een lijst van gegevens staan die uit tabblad 3 komen.

Nu heb ik alleen nog 149 keuzevelden te gaan. Ik kan ze niet kopieren, en met een stukje VBA code kom ik er ook niet waarschijnlijk omdat er invoervelden gebruikt worden?

Wie kan mij hiermee helpen?

[Verwijderd]

kijk eens naar [VBA] Combobox aanmaken en vullen voor activex besturingselementen.
voor formulierelementen kunnen de eigenschappen voor bv. een klaplijst zo ingesteld worden:

Visual Basic:

Sub EigenschappenBesturingsElementenInstellen()
  Dim KlapLijst As Long
  
  For KlapLijst = 1 To ActiveWorkbook.Worksheets(1).Shapes.Count
    With ActiveWorkbook.Worksheets(1).Shapes(KlapLijst).ControlFormat
      .ListFillRange = _
          ( _
            ActiveWorkbook.Worksheets(2).Name & "!" & _
            ActiveWorkbook.Worksheets(2).Range("a1").Offset((KlapLijst - 1) * 8, 0).Address & ":" & _
            ActiveWorkbook.Worksheets(2).Range("a1").Offset((KlapLijst - 1) * 8 + 7, 0).Address _
          )
      .LinkedCell = ActiveWorkbook.Worksheets(1).Range("a1").Offset(KlapLijst - 1, 0).Address
    End With
  Next
End Sub