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