wie der Titel schon sagt will ich Labels auf eine Multipage beim Start der Userform generieren. _ Die Labels zu erstellen funktioniert bereits jedoch sind diese im Hintergrund. Kann mir bitte jemand sagen was ich falsch mache :) Hier mein Code:
Private Sub CommandButton1_Click()
Dim myLabel As Object
Dim AbstandLabel As Integer
Dim i As Integer
x = 3
Load Vergleichsanlagen
For i = 1 To x
Set myLabel = Vergleichsanlagen.Controls.Add("Forms.Label.1", "Test" & 1, True)
With myLabel
.Caption = "Label" & i
AbstandLabel = 78 + (120 * (i - 1))
.Left = AbstandLabel
.Top = 18
.Width = 96
.Height = 18
End With
Next i
Vergleichsanlagen.Show
End Sub
Dieser ist in der Userform in der auch die Label Anzahl x gewählt wird. Diese werden dann anschließend in der Userform "Vergleichsanlagen" generiert.
Hier ein Foto vom Ergebnis:
Danke für die Hilfe!
Beste Grüße
Tobi