Avatar billede Slettet bruger
12. marts 2006 - 18:38 Der er 5 kommentarer og
1 løsning

Multiselect listbox hent værdi

Hey..

Jeg vil gerne hente data fra en multiselect listbox. Den befinder sig i en excel dialog box.

Normal (ved singleselect listbox) finder jeg selected index ved sheet().shape.oleformat.object, men da der jo er flere værdier, giver dette fejl. Jeg har prøvet med .selecteditem og .list, men jeg får ikke noget ud af det..
Avatar billede bak Forsker
12. marts 2006 - 19:10 #1
Her er en metode

For i = 0 To ListBox2.ListCount - 1
  If ListBox2.Selected(i) Then
    bla.bla
  End If
Next i
Avatar billede Slettet bruger
12. marts 2006 - 19:15 #2
MsgBox (Sheets().Shapes().ListCount) giver fejlen 'object doesn't support this property or method'.

Det er ikke en form, men en dialogboks..
Avatar billede bak Forsker
12. marts 2006 - 19:50 #3
Dim x As Long
  For x = 1 To Ark1.Shapes("Liste 1").OLEFormat.Object.ListCount
      Debug.Print Ark1.Shapes("Liste 1").OLEFormat.Object.Selected(x)
  Next
End Sub
Avatar billede bak Forsker
12. marts 2006 - 19:57 #4
check og skriv

Sub test()
Dim x As Long
With Ark1.Shapes("Liste 1").OLEFormat.Object
  For x = 1 To .ListCount
      If .Selected(x) Then
        Debug.Print .List(x)
      End If
  Next
End With
End Sub
Avatar billede Slettet bruger
12. marts 2006 - 20:09 #5
Super.. takskaduha!!

Smid et svar.

Vh Mathias..
Avatar billede bak Forsker
12. marts 2006 - 20:10 #6
ok :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester