CheckBox Eigenschaften mit Schleife ausgeben
27.07.2018 11:35:59
Joni
ich würde gerne die Eigenschaften von Controlls (hier im Test eine Checkbox) mittels einer Schleife ausgeben. Leider weiß ich nicht wie ich an die Eigenschaften heran komme.
Danke für eure Hilfe!
Gruß Joni
Sub Userforms_mit_Schleife_durchlaufen_ControllEigenschaften()
Dim i As Integer, intCounter As Integer, iProperty As Integer
'Namen und alle Controls auflisten
With Application.VBE.ActiveVBProject
For i = 1 To Application.VBE.ActiveVBProject.VBComponents.Count
If .VBComponents(i).Type = 3 Then
'Debug.Print .VBComponents(i).Name
If .VBComponents(i).Name = "Userform1" Then
Debug.Print .VBComponents(i).Name
For intCounter = 0 To .VBComponents(i).Designer.Controls.Count - 1
If .VBComponents(i).Designer.Controls(intCounter).Name = "CheckBox1" Then
Debug.Print vbTab & vbTab & .VBComponents(i).Designer.Controls(intCounter). _
_
Name
For iProperty = 0 To .VBComponents(i).Designer.Controls(intCounter).XXX. _
_
Count - 1 'hier komme ich nicht weiter
Debug.Print .VBComponents(i).Designer.Controls(intCounter).XXX( _
iProperty).Name
Debug.Print .VBComponents(i).Designer.Controls(intCounter).XXX( _
iProperty).Value
Next iProperty
End If
Next intCounter
End If
End If
Next
End With
End Sub