Finde valgte emner i en listbox

Er det en form eller en control?
Er det multi eller enkelt line select?
/1

Det er multiselect og ikke en form

Dette vil alerte alle dine selectede værdier.

Dim i As Integer
With ActiveSheet.ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
            MsgBox (.List(i))
        End If
    Next
End With

/1

Det virker ikke det har jeg prøvet.
Object doesn´t support this property or method

Jeg opretter listbixen med:
    batches = ListContents("C")
  ActiveSheet.ListBoxes.Add(770, 250, 300, 10).Select
    With Selection
        .List = batches
        .MultiSelect = xlSimple
        .Display3DShading = False
        .name = "ListBox1"
    End With

fejl i linien her:
With ActiveSheet.ListBox1

Puha,

Jeg må give fortabt med formmetoden..

Er det nødvendigt at lave en ny listbox hver gang? Ellers kan du lave det med controls i stedet for forms.

Det jeg bruger det til er at udvælge en række emner i noget importerede data. Emnerne kan variere, så derfor opdateres listboxen dynamisk alt efter hvor mange emner den importerede data indeholder.

Hvordan laves det med controls ???

Du kan gøre det op denne måde:
Vis toolbaren control toolbox og indsæt en listbox.
For at loade din data til listboxen, kan du bruge min Update funktion, hvor input er et array (Jeg går ud fra din ListContents returnerer et array).
.Visible true/false er for at undgå en bug i excel (Det var i hvert fald den eneste måde, jeg kunne få det til at virke på).
På min computer passer det fint med at adde 13 til højden for hver linje.

Function Update(inputArr)
    Dim i As Integer
    With ActiveSheet.ListBox1
        .Visible = False
        Do While .ListCount > 0
            .RemoveItem (i)
        Loop
        .MultiSelect = 1
        .Height = 0
        For i = 0 To UBound(inputArr)
            .Height = .Height + 13
            .AddItem (inputArr(i))
        Next
        .Visible = True
    End With
End Function
Function alertValues()
    Dim i As Integer
    With ActiveSheet.ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                MsgBox (.List(i))
            End If
        Next
    End With
End Function

Det hjælper ikke noget, jeg render stadig ind i problemer med .selected(i) funktionen. som jeg nævnte først.

Dim i As Integer
With ActiveSheet.ListBox1
    For i = 0 To .ListCount - 1
her ---->  If .Selected(i) Then
            MsgBox (.List(i))
        End If
    Next
End With

Er du sikker på, du bruger den rigtige listbox?

Der er 2 typer forms/controls i excel, som i nogen grad kan det samme - Den ene type kommer fra forms toolbaren og den anden fra controls toolbaren.

Jeg har uploaded et eksempel her, hvor det virker. http://www.mathiasbogsted.dk/listbox.xls

Hvis det ikke virker, må du skrive din excel version her.

Det var fra forms jeg valgte listboxen, så det var derfor.
Det virker nu....mange tak for hjælpen

smid lige et svar, så får du points

Super.

Se evt. denne lille artikel, der meget kort forklarer forskellen, styrker og svagheder.
http://www.ozgrid.com/Excel/Excel-controls-forms-toolbox.htm

Kort fortalt er controls mere egnede til programmering, hvor forms egner sig bedst til alm. brug af excel - at microsoft ikke har kombineret deres funktionalitet, kan vel kun beskrives som pænt dumt.

/1