Kategorie:
(Tipp 90)
Wie kann man auf einzelne, vorher durch VBA-Code erzeugte Label zugreifen und deren Caption neu festlegen?
Es wird eine Collection erstellt, die die Labels enthält. Darauf kann dann zugegriffen werden. Sollen jedoch andere Routinen (Subs, Functions) des Moduls auch Zugriff haben, muss die Deklaration Dim colLabels As New Collection an den Anfang des Moduls.
Private Sub UserForm_Initialize() Dim bytN As Byte, ctrLabel As Control, colLabels As New Collection For bytN = 1 To 3 Set ctrLabel = Controls.Add("Forms.label.1") ctrLabel.Top = bytN * 20 ctrLabel.Left = 20 ctrLabel.Caption = ctrLabel.Name colLabels.Add ctrLabel Next For bytN = 1 To 3 colLabels(bytN).Caption = "Test " & bytN Next End Sub