ListBox Item an label Array
27.04.2022 13:33:14
Antonio
ich möchte gerne die Item aus einer ListBox an die Label übergeben,
habe Mutter Google schon durchgeforstet aber nichts gefunden nur wenn ein Item selektiert ist,
aber dann nur an einem Label.
Hier mein Code:
Dim lb As MSForms.Control
Dim strArray As Variant
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 1 To Me.TextBox3.Value 'Begleitung
For j = 1 To 16
' k = i + (84 * j)
strArray = Array(Me.ListBox2.List) ?
Set lb = Me.Controls.Add("Forms.CommandButton.1", "lb")
With lb
.Top = i * 67
.Height = 18
.Width = 50
.Left = (j * 50) + 150
.BackColor = RGB(255, 204, 153)
.Caption = strArray(lb)
End With
Next j
Next i
PS.: im Listbox sind auch leere Zeilen, dann sollte der enrsprechendenLabel leer bleiben.
Vielen Dank Im Voraus
LG Antonio
