VBA listbox value to cell

[Faygin]

I initialize a userform and a listbox with different types of options like this:
---

Private Sub UserForm_Initialize()

ArrayPrimarEmb = Array("-- Ange Alternativ --", "Kit", "Rund Tub", "Platt Tub", "Oval Tub", "Glasflaska", "Fyrkantig Flaska", "Oval Flaska", "Rund Flaska", "Burk", "Tunna med Lock", "Plastdunk", "Sachee Förpackning")

PrimarEmb.List = ArrayPrimarEmb

End Sub

---

Then when button is pressed i want to put the selected alternative in text in my worksheet.
---

Private Sub CommandButton1_Click()

Cells(1, "E").Value = PrimarEmb.Value

End Sub

---

But that doesnt work.
How do i get the actual selected "item" in my workbook?
Thank you for your help!

 

[HaHoBe]

Hi Faygin,

code works fine for me in a sample workbook. Do you get any error messages?

Ciao,
Holger

 

[Fluff]

Is you listbox set to single select or multi select?

 

[Faygin]

Hi Holger.
I dont get any error messages, its just dont transfer any data, the recieving cell is blank.

Hi Fluff
0-fmMultiselectSingle is the setting.

 

[Fluff]

In that case the code should work & put the listbox value into E1 on the active sheet.

 

[Faygin]

Private Sub CommandButton1_Click()




Cells(1, "A").Value = ArtikelnummerFV.Value
Cells(1, "B").Value = Benamning.Value
Cells(1, "C").Value = Tillverkningsstorlek.Value
Cells(1, "D").Value = KalkylKvant.Value
Cells(1, "E").Value = PrimarEmb.Value


End Sub



Private Sub UserForm_Initialize()


ArrayPrimarEmb = Array("-- Ange Alternativ --", "Kit", "Rund Tub", "Platt Tub", "Oval Tub", "Glasflaska", "Fyrkantig Flaska", "Oval Flaska", "Rund Flaska", "Burk", "Tunna med Lock", "Plastdunk", "Sachee Förpackning")

PrimarEmb.List = ArrayPrimarEmb

End Sub

Very frustrating but cant get the red parts to work. All other information gathered from TextBoxes works just fine and displays in A, B, C, D.
The "E" part isnt working.

 

[Fluff]

Do you get any error messages?

 

[Faygin]

No error messages, all other cells fills just fine.

 

[Faygin]

Problem solved! Changed to a ComboBox and now it works fine. Thank you for your time Fluff & HaHoBe, greatly appreciated.

 

[Fluff]

Glad you sorted it & thanks for letting us know.