Ich versuche es mal einfach zu erklären. In einer Userform: "Anzahl_Vergleichsanlagen" werden anhand der ausgewählten Anzahl= x, dementsprechend viele CommandButtons erstellt. Die Userform in der diese erstellt werden heißt: "Vergleichsanlagen".
Die Generierung funktioniert soweit, jedoch ist es mir nicht möglich diese mit
z.B.
"Sub RepoweringButton1_Click()" anzusprechen. Meine Idee ist das der Name nicht korrekt vergeben _
wird und es deshalb nicht funktioniert. Jedoch kommt es zu keiner Fehlermeldung. Die Generation der Buttons erfolgt durch folgenden Code:
Die Positonen Left und Top sind alle richtig, es geht also nur um den Namen...
Private Sub CommandButton1_Click()
Dim RepoweringButtonRow As Object
j = j + 1
For i = 1 To x
Set RepoweringButtonRow = Vergleichsanlagen.MultiPage1.Pages(1).Controls.Add("Forms. _
CommandButton.1", "RepoweringButton" & i, True)
With RepoweringButtonRow
.Name = "RepoweringButton" & i
.Caption = "Repowering"
.Left = AusgangswertLeft + (120 * (i - 1))
.Top = AusgangswertTop + (30 * (j - 1))
.Width = 96
.Height = 24
End With
Next i
Vergleichsanlagen.Show
End Sub
Vielen Dank für eure Unterstützung!