Thomas Risi Softwareentwicklung

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 ' Passt die Breite der UserForm an. Me.Width = w End Sub

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)