Dynamisches Hinzufügen von Beschriftungen zum Benutzerformular = Leeres Benutzerformular
Ich versuche, Schaltflächen dynamisch zum Benutzerformular hinzuzufügen, aber das Benutzerformular ist leer. Ich habe die Essenz des Codes für die Fehlerprüfung so weit wie möglich vereinfacht (nicht, dass es mir geholfen hat)
<code>Sub addLabel() UserForm2.Show Dim theLabel As Label Dim labelCounter As Integer For labelCounter = 1 To 3 Set Label = UserForm2.Controls.Add("Forms.Label.1", "Test" & labelCounter, True) With theLabel .Caption = "Test" & labelCounter .Left = 10 .Width = 50 .Top = 10 End With End Sub </code>
Gibt es eine Möglichkeit zu überprüfen, ob die Schaltflächen hinzugefügt wurden, aber unsichtbar sind? Oder warum sie nicht hinzugefügt werden. Jede Hilfe sehr geschätzt.