In de userform komen +/- 100 spinbuttons.
Nu probeer ik met een code deze in één keer te coderen, anders moet ik voor iedere spinbutton apart de code tikken (zie spinbutton1)
Mijn bedoeling was zoiets als onderstaande code, kan dit en waar moet ik hem dan zetten (onder welk "event").
Nu staat deze code onder "userform_initialize"
Na uren pusselen heb ik de moed opgegeven.
Wie helpt?
Nu probeer ik met een code deze in één keer te coderen, anders moet ik voor iedere spinbutton apart de code tikken (zie spinbutton1)
Mijn bedoeling was zoiets als onderstaande code, kan dit en waar moet ik hem dan zetten (onder welk "event").
Nu staat deze code onder "userform_initialize"
Na uren pusselen heb ik de moed opgegeven.
Code:
For Each Ctrl In Frame1.Controls
If TypeName(Ctrl) = "TextBox" Or TypeName(Ctrl) = "SpinButton" Then
For i = 1 To 18
If Me.Controls("Spinbutton" & i) = True Then
Me.Controls("TextBox" & i).Value = Me.Controls("Spinbutton" & i).Value
End If
Next i
End If
Next
Wie helpt?