listbox maken

[powerbox]

Ik heb weer een vraag en hopelijk heeft 1 van jullie een oplossing.

ik wil een listbox maken. De bedoeling is dat er tijdens het uitvoeren van een macro enkele vragen worden gesteld met standaard uitkomst. Dus hoeft geen invoerveld bij.
De gekozen optie moet dan in een cel worden weer gegeven.

Nou ben ik al bezig met userforms enzo maar kan je niet gewoon in je VB module wat zetten zodat er een listbox komt ? Ik kan dan gelijk verder schrijven in dezelfde module...

Alvast vriendelijk bedankt

 

[gjlinker]

Volgens mij kun je geen nieuwe listbox maken via VBA maar je kunt er in ieder geval zelf eentje maken en die dan verbergen (visible=False). Dan kun je hem hergebruiken. Weet iemand of je een listbox kunt maken in VBA?

Ik plaatste via het Visual Basic toolbar een listbox (Listbox1) op sheet 1. In een module codeerde ik:

Public Sub FillListbox1()
With Sheet1.ListBox1
.AddItem "Item1"
.AddItem "Item2"
.AddItem "Item3"
End With
End Sub

Hoop dat dit helpt.

 

[Jan van Asseldonk]

Even via macro opnemen een listbox geplaatst.

Hieronder de code voor een listbox uit de werkset besturingselementen:
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=99.75, Top:=78, Width:=90, Height:=60). _
Select

Vanuit de werkbalk formulieren:
ActiveSheet.ListBoxes.Add(105.75, 156.75, 90.75, 51.75).Select
With Selection
.ListFillRange = "$G$1:$G$6"
.LinkedCell = "e14"
.MultiSelect = xlNone
.Display3DShading = False
End With


Ik denk dat je hier wel mee verder kunt.