Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
Steuerelemente dynamisch in UserForm erstellen
Dieses kleine Beispiel zeigt, wie man Steuerelemente (hier Label)
dynamisch in eine UserForm einfügt.
Im Bereich Tabelle1!A1:E1 befinden sich Daten, die in der UserForm
dargestellt werden sollen. Das folgende Codesnippet erstellt hierzu für
jede Zelle des Bereiches ein Label in der UserForm, und schreibt den
Inhalt der Zelle hinein.
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 Worksheets("Tabelle1").Range("A1:E1")
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
Me.Width = w
End Sub
© 2001 -
by Thomas Risi