VBA: Copy items from Listbox

[FrankRechter]

Hello

I have a listbox in a userform with several numbers and I would like to select one of them and copy it so that I can paste it anywhere else in Windows.
If this is not possible, maybe the number could be copied to another textbox; then I could copy it myself.

Thanks in advance

 

[MickG]

Try this:-

Private [COLOR="Navy"]Sub[/COLOR] ListBox1_Click()
[COLOR="Navy"]Dim[/COLOR] MyData [COLOR="Navy"]As[/COLOR] New DataObject
 [COLOR="Navy"]Set[/COLOR] MyData = New DataObject
  MyData.SetText ListBox1.Value
    MyData.PutInClipboard
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[FrankRechter]

Thanks for your reply, but this doesn't seem to do anything. I cannot paste anything anywhere else.

Could a command button help?

 

[MickG]

Is your list box called ListBox1. ??
You have to close the Userform to Paste.
Have you pasted the code into the Userform module for the ListBox Click Event. ???

 

[FrankRechter]

Hello again Mick.

No, my ListBox is called ListBox2, but I changed that already.

And yes, it's in the Userform module for the ListBox Click Event.

But even after closing the userform, it still doesn't work.

 

[MickG]

Try this Example:-
http://www.mediafire.com/download.php?3uwf2n6x1quqqke

 

[FrankRechter]

Thanks Mick,

now it works. I had to set multiselect to single in the list properties. Thanks for your help!

 

[biznez]

If you have 2 columns in the listbox, how can you only copy the value from column 2 using this code?