soort control afvangen

[Sjoef]

Hallo, ik heb in Word een userform waar een berg checkboxen op staan en nog wat andere controls. Nu heb ik voor de checkboxen de volgende code...

 For Each ctrC In Me.Controls
            If ctrC = True Then
              VulBookmark ("Bm_Selectie"), ctrC.Caption
              intC = intC + 1
            End If
    Next

Als er alleen checkboxen op het userform zouden staan werkt dit perfect. Alleen staan er nog andere controls op zoals een Datepicker, textboxen enz. Hoe kan ik dit stukje code alleen uit laten voeren als het om een checkbox gaat?

JoZ

 

[Mark xl]

Kijk in VBA Help bij "Typename"

If Typename(ctrC) = "CheckBox" Then 
    ...

let op: de check is "Case sensitive" (hoofdletter gevoelig)

'voor checkboxes:
Debug.Print Typename(ctrC) = "checkbox"  '  False, Behalve met Option compare text
Debug.Print Typename(ctrC) = "CheckBox" '   True

 

[Sjoef]

Mark, bedankt voor je reactie. Het werkt als een speer. Ik had een hele andere constructie bedacht met TypeName. (een hele ingewikkelde) Dat het zo simpel kan zijn..... Nogmaals dank.

JoZ

 

[ExcelAmateur]

Sjoef,

Ik snap dat blij ben dat het werkt maar daardoor vergeet je de vraag als opgelost te zetten.
Doe dit als nog even , dank u. :thumb:

 

[Sjoef]

oeps......sorry. Ga ik gelijk doen.

JoZ