Pienjo

[Pienjo]

Objectnamen dynamisch wijzigen

Allen,

ik heb in één excelsheet verschillende checkboxen staan (op elke lijn). Nu hebben deze allemaal een logische naam bv: Checkbox1, Checkbox2, .... . Voor het inlezen van de value van deze checkboxen zou ik graag een loop schrijven. In de aard van

Dim status(254)

For i = 0 to 253
status(i)=checkbox'i'.value
next i

Ik ben ervan overtuigd dat dit de vraag bijna niet waardig is, maar ik vind het niet :s

Alvast bedankt,

Stijn

 

[Wigi]

Zo simpel is dat niet hoor. Doe maar een voorbeeldbestandje, zonder alle andere gegevens, enkel de checkboxen.

PS: verander eens de titel van de topic aub. De zoekfunctie van dit forum draait zot op titels als die van jou.

Wigi

 

[Wigi]

Hier heb ik de code voor jou geschreven:

Private Sub CheckBoxG5_Click()
Dim i As Integer
For i = 5 To 21
    OLEObjects("CheckBoxH" & CStr(i)).Object = OLEObjects("CheckBoxG5").Object
Next i
End Sub

Wigi