Set LiBo = User.Controls.Add("Forms.ListBox.1")
With LiBo
.Name = "ListBox1"
.Font.Size = 10
.Left = 230
.Top = 70
.Width = 200
'.Heigth = h
'.MultiLine = True
'.ScrollBars = fmScrollBarsVertical
End With
User.Controls("ListBox1").List = Final_PN()
(Zwischenfrage: Ich ändere die Width aber nichts passiert. Warum?)
Über einen Button will ich meine Auswahl dann in eine Zelle in einem Worksheet schreiben. Ich dachte das kann ich so machen (Habe extra Modul für alle Buttons deswegen die Case auswahl):
Case "Test"
ThisWorkbook.Worksheets("Start").Cells(11, 22).Value = ListBox1.Value
Doch leider passiert so nichts. Wie muss ich die Buttonfunktion ändern damit meine Auswahl aus der Listbox übertragen wird?