Avatar billede Claus Mester
24. maj 2008 - 14:14 Der er 4 kommentarer og
1 løsning

vba indsætte data listbox med flere kolonner

Hej,

Er der nogen der har et bud på, hvordan jeg indlæser data fra celler i mit regneark, ind i en liste med kolonner?

Har data i cellerne A1, A2, A3 og B1, B2, B3 og C1, C2, C3
Data skal fordeles således i listen:

-Listen-
A1 B1 C3
A2 B2 C2
A3 B3 C3

nicolaus
Avatar billede Lene Fredborg Ekspert
24. maj 2008 - 14:36 #1
Er det en liste i en UserForm?
Avatar billede Claus Mester
24. maj 2008 - 16:49 #2
Hov, det fik jeg vist ikke uddybet. Ja, det er en liste på en userform.
Avatar billede Lene Fredborg Ekspert
24. maj 2008 - 18:05 #3
Sæt .ColumnCount for din liste til 3. F.eks.:

ListBox1.ColumnCount = 3

Sæt et bredde på hver at kolonnerne vha. .ColumnWidth. F.eks.:

    ListBox1.ColumnWidths = _
        50 & ";" & 50 & ";" & 50

Prøv dig frem med kolonnebredderne.

Overfør værdierne til de enkelte kolonner. F.eks. i tilfælde af den første i listen - tælleren starter fra 0 både for listen og for kolonnerne:

Kolonne 1:
  ListBox1.List(0, 0) = [din værdi]

Kolonne 2:
  ListBox1.List(0, 1) = [din værdi]

Kolonne 3:
  ListBox1.List(0, 2) = [din værdi]

Se VBA-hjælpen for flere detaljer.

Eksempel du kan prøve – en UserForm med ListBox1. Hvis følgende findes som initalize-event, vil ListBox1 vise:

Værdi 1    Værdi 2    Værdi 3

Private Sub UserForm_initialize()
    With ListBox1
        .ColumnCount = 3
        .ColumnWidths = 50 & ";" & 50 & ";" & 50
        'Add one item in the list
        .AddItem
        'Add values in each column
        .List(0, 0) = "Værdi 2"
        .List(0, 1) = "Værdi 2"
        .List(0, 2) = "Værdi 3"
    End With
       
End Sub
Avatar billede Claus Mester
24. maj 2008 - 19:27 #4
Din første løsning "listbox1.List(0,0) ..." osv. resulterer i en array fejl.
Men løsningen nederst virker perfekt.
Tak for hjælpen!
Husk svar :)
Avatar billede Lene Fredborg Ekspert
24. maj 2008 - 20:26 #5
Kommer her.
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
Kurser inden for grundlæggende programmering

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