Hallo,
kann mir jemand helfen, wie ich den dyn. erstellten Labeln ein Makro zuweisen kann? Also wenn das Label angeklickt wird soll ein Makro aufgerufen werden.
Besten Dank und viele Grüße
Sebastian
Private Sub CommandButton1_Click()
Dim theLabel As Object
Dim labelCounter As Long
For labelCounter = 1 To 3
Set theLabel = UserForm1.Controls.Add("Forms.Label.1", "Test" & labelCounter, True)
With theLabel
.Caption = "Test" & labelCounter
.Left = 10
.Width = 50
.Top = 30 * labelCounter
End With
Next
End Sub
|