ist es möglich, während der Laufzeit Objekte in einem Userform zu erzeugen? Also ich öffne das UserForm, es werden z.B. die Spaltenüberschriften eingelesen und im Userform als Label dargestellt.
Liebe Grüsse Heike
Option Explicit
Const DISTANCE = 10&
Private Sub UserForm_Initialize()
Dim rng As Excel.Range
Dim ctl As MSForms.Label
Dim w As Long: w = DISTANCE
For Each rng In Selection
Set ctl = Me.Controls.Add("Forms.Label.1")
With ctl
.Caption = rng.Value
.Left = w
.Top = DISTANCE
.Width = 50
End With
w = w + ctl.Width + DISTANCE
Next rng
End Sub
Gruß
Thomas
Risi Thomas Softwareentwicklung