Avatar billede besida Nybegynder
18. december 2008 - 22:34 Der er 11 kommentarer og
1 løsning

Valg i listbox

Hej

Jeg har en listbox i min userform, som henter data ind fra Range(A20000:M250000). Dataene opdateres alt efter hvilke checkboxe der markeres.
I første kolonne har jeg "dato", og anden kolonne "nummer"
Jeg har prøvet vha. en command button at få den markerede "linje" i listboxen, overført til en nye userform, i Label1.

Hvordan kan jeg kun få overført "nummer"(kolonne 2) i den markerede linje i listboxen, til label1?
Avatar billede besida Nybegynder
18. december 2008 - 22:36 #1
how, range(A20000:M25000) !
Avatar billede mireigi Novice
18. december 2008 - 22:42 #2
Kan du prøve at uddybe det lidt?

For mig lyder det som om du blander lidt Excel sammen med DotNet programmering.
Avatar billede besida Nybegynder
18. december 2008 - 22:49 #3
Sorry..
Det er excel / VBA.

Jeg har en userform, med en listbox. Data til listboxen hentes fra arket "fakturaer", som sorteres alt efter markerede checkboxe (eks. Vis alle fakturaer, vis åbne fakturaer mv.). I listboxen vises kolonne 1 til 14 på hver linie, med forskellig data. Listboxen skal jeg bruge til at se fakturaer, og vælges en faktura i listboxen, skal data fra "faktura" nummeret, overføres til userform8.
Jeg kan sagtens få fakturadata læst ind manuelt i userform8, men jeg ville gerne have at den markerede linie i listboxen, resulterede i at label 1 i userform 8, fik værdien fra kolonne 2(alt efter hvilken faktura der markeres i listbox1).

Hjalp det?
Avatar billede mireigi Novice
18. december 2008 - 22:54 #4
Ja, nu forstår jeg da hvad du spørger efter :)

Kender ikke noget til VBA, men hvis du kan anvende excel funktioner deri, kan du prøve med denne:

Label1 = LOPSLAG(Markeret_Værdi_I_ListBox; A20000:M25000; 2; FALSK)

Som sagt aner jeg ikke noget om VBA, plejer bare at bruge de forskellige funktioner i excel :)
Avatar billede besida Nybegynder
18. december 2008 - 22:56 #5
ok, det skl helst køre i VBA, da jeg stort set kun benytter userforms, og har excel skjult. ellers tak :)
Avatar billede supertekst Ekspert
19. december 2008 - 09:18 #6
Eks.:

    UserForm2.Label1.Caption = Me.ListBox1.List(Me.ListBox1.ListIndex, 1)
Avatar billede besida Nybegynder
19. december 2008 - 13:05 #7
Hej Supertekst

1000 tak. Listindex, er det kolonne nr. der indsættes eller hvordan fungere det???
Avatar billede supertekst Ekspert
19. december 2008 - 13:21 #8
ListIndex = er den aktuelle række, som er markeret i ListBoxen 
, 1 er "kolonne 2".
Avatar billede supertekst Ekspert
19. december 2008 - 13:41 #9
Hvis det kan hjælpe - så er koden i min UserForm1 følgende:

Private Sub CommandButton1_Click()
    UserForm2.Label1.Caption = Me.ListBox1.List(Me.ListBox1.ListIndex, 1)
   
    Load UserForm2
    UserForm2.Show
End Sub

Private Sub UserForm_activate()
    Me.ListBox1.ColumnCount = 2
    Me.ListBox1.ColumnWidths = "40;75"
     
    Me.ListBox1.AddItem "191208"
    Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = "AAAA"
    Me.ListBox1.AddItem "201208"
    Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = "BBBB"
End Sub
Avatar billede kabbak Professor
19. december 2008 - 19:18 #10
Label1.caption =ListBox1.column(1)
Avatar billede besida Nybegynder
20. december 2008 - 15:56 #11
Hej
Det var lige det jeg havde brug for supertekst, det virker 100%.
1000 tak for hjælpen!

Kabbak, tak for svaret også :)
Avatar billede supertekst Ekspert
20. december 2008 - 19:13 #12
Selv tak..
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