Auslesen von Controls aus UserForm

Hallo Jennifer

Ich bin Anna und helfe Ihnen gerne bei Ihrer Frage. In diesem Forum sind wir Microsoft-Verbraucher wie Sie.

Um die Beziehung zwischen dem Rahmen und den darin enthaltenen Beschriftungen im Code sichtbar zu machen, können Sie der Tabelle, die Sie in der Excel-Datei erstellen, eine zusätzliche Spalte hinzufügen. In dieser Spalte wird der Name des übergeordneten Frames für jede Bezeichnung gespeichert und während der Schleife ausgefüllt, die die Steuerelemente im UserForm durchläuft.

Eine Möglichkeit, dies zu tun, wäre, die folgende Zeile vor der Zeile Cells(row_is, 1) = cc.Name hinzuzufügen:

Zellen(row_is, 7) = cc.Parent.Name

Dadurch wird der 7. Spalte der Tabelle der Name des übergeordneten Frames des aktuellen Steuerelements (cc) hinzugefügt. Auf diese Weise können Sie sehen, welche Etiketten zu welchem Rahmen gehören.

Alternativ können Sie der Schleife auch eine Bedingung hinzufügen, in der nur die Beschriftungssteuerelemente aufgezeichnet werden, die sich im Rahmen befinden, und dann den Rahmennamen als Beschriftung hinzufügen.

Darüber hinaus sollten Sie auch den Fall behandeln, in dem ein Steuerelement keinen übergeordneten Rahmen hat, da sich das Steuerelement möglicherweise direkt auf dem Formular befindet.

Sie können auch den Fall behandeln, in dem ein Steuerelement keine Beschriftung hat, und stattdessen können Sie eine Bedingung haben, um einen Standardwert zu überprüfen und festzulegen oder ihn leer zu lassen.

Ich hoffe, das hilft ;-), lassen Sie mich wissen, wenn dies im Widerspruch zu dem steht, was Sie brauchen, ich wäre immer noch hilfreich, um mehr von Ihren Fragen zu beantworten.

Alles Gute

Anna

Geben Sie der Gemeinschaft etwas zurück. Helfen Sie der nächsten Person mit diesem Problem, indem Sie angeben, ob diese Antwort Ihr Problem gelöst hat. Klicken Sie unten auf Ja oder Nein.

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.

Hallo Andreas
dein Vorschlag geht in die richtige Richtung. Allerdings listet der Vorschlag von Anna bei eine UserForm alle 131 Objekte auf, dein Vorschlag aber nur 36. Es hat 9 Frames, einige werden gar nicht gelistet, bei einigen wird nur ein Teil der Objekte gelistet. Das sieht dann so aus, die grünen Objekte werden gelistet, die anderen nicht. (Einige Frames sind wegen der Farbsetzung nicht direkt ersichtlich)



Woran kann das liegen?
Gruss
Jürgen

Hallo Jürgen,
ich denke mal der Code unten ist hilfreich auch ohne Erklärungen!?
Andreas.
Sub Test()
Dim Uf As MSForms.UserForm
Dim C As MSForms.Control
Dim Dict As Scripting.Dictionary

Set Dict = CreateObject("Scripting.Dictionary")
Set Uf = ThisWorkbook.VBProject.VBComponents("Userform1").Designer
ListControls Uf.Controls(1).Parent.Name, Uf, Dict
End Sub

Sub ListControls(ByVal Path As String, ByRef Container As Object, ByRef Dict As Scripting.Dictionary)
Dim C As MSForms.Control
Dim Prop, Props, Result
Dim i As Integer
Props = Array("Top", "Left", "Height", "Width")
Result = Props
For Each C In Container.Controls
If TypeOf C Is MSForms.Frame Then
ListControls Path & "\" & C.Name, C, Dict
ElseIf Not Dict.Exists(C.Name) Then
Dict.Add C.Name, C
i = 0
For Each Prop In Props
Result(i) = VBA.CallByName(C, Prop, VbGet)
i = i + 1
Next
Debug.Print Path & "\" & C.Name, Join(Result, " - ")
End If
Next
End Sub

Kannst du bitte mal eine genaue Beschreibung über den genauen Aufbau der USerform liefern?

Wo ist welches Control?

Ist mulSeiten ein MultiPage-Control? Was ist regReister02 bzw. regGesetzesdaten?

Das ist so nicht nachvollziebar...

Gruß Christian

Auf der Userform ein Chart? Das geht nicht.

Erzeuge ein Diagramm in einem Tabellenblatt, füttere das mit Deinen Daten und blende dieses Blatt ggf. ein /aus.

Wenn Du viel Erfahrung hast, dann kannst Du auf der Userform ein Image-Control plazieren, vom Chart einen Screenshot machen, den in eine temporäre Datei schreiben und diese in das Image lesen.

Andreas.