temporäre Buttons
JACK
ich hab mal wieder ein Anliegen bei dem ich einen denkanstoß benötige.
Die Schnellsuche hat mir keinen passenden Treffer gezeigt, daher mein Post.
Und zwar erstelle ich über ein Makro in einer Userform Buttons
und zwar soviele wie ich Tabellenblätter hab.
Private Sub CommandButton1_Click()
Dim NewCommandButton As CommandButton
For Each ws In Worksheets
Set NewCommandButton = Me.Controls.Add("Forms.CommandButton.1", "cmdNewControl")
NewCommandButton.Caption = ws.name
NewCommandButton.Top = 2 + x
NewCommandButton.Left = 2
NewCommandButton.Width = 180
NewCommandButton.Height = 30
x = x + 30
Next
End Sub
Dies funktioniert auch soweit klaglos.
Doch wie bekomme ich Funktionen bzw Subs "hinter" die Buttons.
Sprich
Private Sub CommandButton1_Click() (commandbutton des ws.xyz)
Thanks in advance
Anzeige