Ich möchte in einer Userform n Buttons erzeugen. Das klappt soweit auch nach meinen Vorstellungen.
Jetzt möchte ich, dass jedem dieser Buttons eine Funktion zugeordnet wird und die Laufvariable j dieser Funktion übergeben wird. Ich habe versucht dies mit der Eigenschaft ".OnAction" zu realisieren.
Leider bekomme ich folgende Fehlermeldung vom Debugger in der entsprechenden Zeile:
"Objekt unterstützt diese Eigenschaft oder Methode nicht"
Zu der Syntax von .OnAction habe ich im Netz viele unterschiedliche Varianten gelesen um eine Funktion mit Variablenübergabe zuzuweisen. Davon hat leider keine funktioniert.
Selbst wenn ich dem Button nur ein Sub zuweisen will, bekomme ich die gleiche Fehlermeldung.
Warum wird die Eigenschaft .OnAction nicht unterstützt von meinen Buttons?
Mein Ansatz:
Function ButtonsErzeugen(n as Integer)
For j = 0 To n - 1
Set Bttn = UF_ScanEinlagern.Controls.Add("Forms.CommandButton.1")
With Bttn
.Name = "Best" & j
.Height = 65
.Width = 90
.Left = (j + 1) * 102
.Top = 168
.Caption = "Einlagern!"
.OnAction = "'EinlagernDurchfuehren " & j & "'"
End With
Next j
End Function
Private Function EinlagernDurchfuehren(stelle As Integer)
MsgBox "Hier passiert was!"
End Function
Vielen Dank!