For Schleife Labels in Userform hinzufügen
11.09.2017 14:54:44
Tobi93
leider komme ich bei meinem Projekt nicht weiter. Ich will eine For Schleife, die Label und später auch Textfelder erzeugt. Die Menge der Felder soll von einer Variable x bestimmt werden die vorher ausgewählt wird. Mein Code ist wie folgt:
Private Sub CommandButton1_Click()
Dim myLabel As MSForms.Control
Dim AbstandLabel As Integer
Dim i As Integer
MsgBox x
For i = 1 To x
Set myLabel = Vergleichsanlagen.Controls.Add("Forms.Label." & i, True)
With myLabel
AbstandLabel = 78 + (120 * (i - 1))
.Left = AbstandLabel
.Top = 18
.Width = 96
.Height = 18
End With
Next i
Vergleichsanlagen.Show
End Sub
Dieser steht in der Userform in der die Variable x bestimmt wird. Die Userform die mit x Labeln und Feldern generiert werden soll heißt "Vergleichsanlagen".
Beim laufen des Programms kommt es zur Fehlermeldung: "Ungültige Klassenzeichenfolge"
Falls jemand eine Idee hat was ich falsch mache wäre ich sehr dankbar!!! :)
Beste Grüße
Tobi