Hallo Gemeinde, würde mich freuen, wenn mir jemand weiterhelfen kann? Ich hab anhand von Recherchen einen Code "gebastelt", der mir ein paar Eigenschaften aller Steuerelemente meiner UF auflistet. An einer Stelle weiß ich allerdings nicht weiter. Ich möchte gern, dass mir zu dem jeweiligen Steuerelement das dazugehörige/ursprüngliche Frame (Exzel Spalte 10 dann) aufgelistet wird. Würde mir die Excelliste dann gerne anhand der Frames sortieren. Hier der Code:
Sub UF_listen()
Dim objUF As Object
Dim objControls As Control
Dim objHelp As Object
Dim lngi As Long
lngi = 1
With ActiveWorkbook.VBProject
For Each objUF In .VBComponents
If objUF.Type = 3 Then
Set objHelp = UserForms.Add(objUF.Name)
For Each objControls In objHelp.Controls
ActiveSheet.Cells(lngi + 1, 1) = objUF.Name
On Error Resume Next
ActiveSheet.Cells(lngi + 1, 2) = objControls.Name
On Error Resume Next
ActiveSheet.Cells(lngi + 1, 3) = objControls.Caption
On Error Resume Next
ActiveSheet.Cells(lngi + 1, 4) = objControls.Text
'usw.
On Error Resume Next
ActiveSheet.Cells(lngi + 1, 8) = objControls.TabIndex
On Error Resume Next
ActiveSheet.Cells(lngi + 1, 9) = TypeName(objControls)
On Error GoTo 0
lngi = lngi + 1
Next objControls
End If
Next objUF
End With
...
Ich danke Euch für die Hilfe.
Viele Grüße
Andrea