kaum habe ich 25 Userformen erstellt, kommt der Wunsch, ob man nicht
ein Bezeichnungsfeld(Label) in jede UF hinzufügen kann........
Ich möchte mir die händische Erstellung ersparen :-)
Geht das zur Laufzeit?
Gruß
robert
Dim i as long
For i = 1 To UserForms.Count
With UserForms(i - 1)
With .Controls.Add("forms.label.1", "NeuesLabel", True)
.Top = 5
.Left = 5
.Height = 10
.Width = 100
.Caption = "xxx"
End With
End With
Next
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen