Valg af flere emner i en Listboks

Forat finde frem til de valgte emner skal du bruge \"Selected\" - Listbox1.Selected - kan det mon hjælpe dig videre :-)

Jeg efterlyser en løsning uden VBA - ligesom når det kun gælder en enkelt celle. Kan det ikke lade sig gøre?

Selected virker vel kun, når Listboksen befinder sig på en Userform.

Man har rent faktisk mulighed for at taste et range under den property som hedder \"LinkedCell\".

Det virker forkert at det så ikke på en eller anden måde skulle virke.

Her er koden til en userform - selv om det ikke er den du skal bruge.

Private Sub CommandButton1_Click()
Dim rRange As Range
Dim Counter As Long

    Set rRange = Range(\"A1\")

    For Counter = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(Counter) = True Then
            rRange.Value = Me.ListBox1.List(Counter)
            Set rRange = rRange.Offset(1, 0)
        End If
    Next Counter

Set rRange = Nothing
End Sub

Det vil vel være mere rigtigt i så fald at bruge Change-eventet?

Koden som er vist er lagt på en knap på en userform, men hvis du laver det på et ark, så vil jeg også bruge listbox\'ens change-event - Yes.

Egenskaben LinkedCell er kun til EN celle - desværre Jan - du må igang med koden.

Ja, men Excel accepterer f.eks. A1:A3! Det er det der er mystisk.
Den formaterer endda til store bogstaver for dig!

Ja, det er mærkeligt, hvorfor jeg tog fat i en excel guru og blev sat på plads, med svaret som jeg gav før - sorry.

Hvordan går det Jan ?

Der findes åbenbart ikke en løsning her uden VBA-kode.

Koden fungerer fint - dog skal man lige have en ClearContents sat ind for at nulstille området.