Multiselect ListBox can't find the name

**ChrisNor** · 10-09-2009, 08:27 AM

Hi,

I have a sheet named "Main" and multiselect listbox in this sheet.

I've named the multiselect listbox "Test", in the window just above the column A, next to the formula/cell value input field

However when trying to run a macro which is to return the selections in the multiselect listbox. I get an error i the VBA code that "object required".

Sub Knapp9_Klikk()
' Submit knappen

Dim lItem As Long

    For lItem = 0 To Test.ListCount - 1

        If Test.Selected(lItem) = True Then

            Main.Range("A65536").End(xlUp)(2, 1) = Test.List(lItem)

            Test.Selected(lItem) = False

        End If

    Next

End Sub

What I want the macro to do is bascially. Output for each option in the listbox either TRUE or FALSE. Where the first should be outputted in cell A1, then B1, C1, etc..

I will then use the input created in these cell, for a later procedure..

Hope someone can shed some light on this...

PS!! I'm using Excel 2007 and Vista

**romperstomper** · 10-09-2009, 08:43 AM

Assuming that is in the worksheet code module, when you click the left hand dropdown above the code module in the VBEditor, does Test appear as an object?

**ChrisNor** · 10-09-2009, 08:46 AM

I'm not sure I understand where I am supposed to look for what you ask.

**ChrisNor** · 10-09-2009, 08:47 AM

The listBox is in the worksheet by the way

**romperstomper** · 10-09-2009, 08:50 AM

When you have that code module open in the VB Editor, there should be two dropdowns at the top of the code window. The one on the left contains the available objects, the one on the right shows the available events/methods for the selected object. If you look for Test in the left hand one, is it there or do you see another name for the listbox?

**ChrisNor** · 10-09-2009, 08:52 AM

I see.

the only thing I can see is (General)

**romperstomper** · 10-09-2009, 09:27 AM

If it's a Forms control listbox, try this:

Sub Knapp9_Klikk()
' Submit knappen

Dim lItem As Long
With Sheet23.Listboxes("Test")
    For lItem = 0 To .ListCount - 1

        If .Selected(lItem) = True Then

            Sheet23.Range("A65536").End(xlUp)(2, 1) = .List(lItem)

            .Selected(lItem) = False

        End If

    Next
End With
End Sub

If it was an ActiveX control, you should see a name like Listbox1 in the Intellisense list.

**ChrisNor** · 10-09-2009, 09:29 AM

I picked the listbox without the activeX controll... Shown I create one with ActiveX?

**romperstomper** · 10-09-2009, 09:36 AM

Did you try the code I just posted? It's for the non-ActiveX version of the control.

**ChrisNor** · 10-09-2009, 09:50 AM

Well... I'm off from work now... I'll have to look into this next week.

I really appreciate your time.

Multiselect ListBox can't find the name

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Multiselect ListBox can't find the name

Re: Multiselect ListBox can't find the name

Re: Multiselect ListBox can't find the name

Re: Multiselect ListBox can't find the name

Re: Multiselect ListBox can't find the name

Re: Multiselect ListBox can't find the name

Re: Multiselect ListBox can't find the name

Re: Multiselect ListBox can't find the name

Re: Multiselect ListBox can't find the name

Re: Multiselect ListBox can't find the name

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions