Avatar billede svla Mester
23. november 2006 - 22:42 Der er 9 kommentarer og
2 løsninger

Tekst i ComboBox

Hej
Jeg har en  VBA UserForm med bla. en ComboBox som henter data ind i Combobox'ens liste fra et Excelark's område A6:B29.

I ComboBox'ens liste fremkommer der herefter to kolonner med data, men når der på combobox'ens liste klikkes på en tekst i listen som er hentet ind, så kommer der kun tekst fra 1. kolonne i Combobox'ens tekstfelt.

Spørgsmål:
Hvordan får jeg tekst fra begge kolonner i ComboBox,ens liste til og komme ind i Combobox'ens tekstfelt ?

Håber det er forståeligt, og nogen kan hjælpe.
Avatar billede splokit Nybegynder
24. november 2006 - 07:23 #1
du kan nok lave om på A6:B29 Til A6:A29 & B6:29
Hvis du sender din kode kan man se hvor fejlen er!!
Avatar billede splokit Nybegynder
24. november 2006 - 07:27 #2
ComboBox1.Clear
For Each C In Range("A6:B29")
If Application.CountIf(Range("A6", C.Address), C) = 1 Then
ComboBox1.AddItem C.Value
Avatar billede kabbak Professor
24. november 2006 - 09:16 #3
en ComboBox's tekstfelt, viser altid kun den kolonne som den er bundet til, det kan du se i properties
Avatar billede supertekst Ekspert
24. november 2006 - 11:49 #4
Dette kan måske inspirere:

Private Sub ComboBox1_Click()
Dim ix
    ix = Me.ComboBox1.ListIndex
    Me.ComboBox1.Value = Me.ComboBox1.List(ix) + " " + Me.ComboBox1.List(ix, 1)
End Sub
Private Sub UserForm_activate()
    Me.ComboBox1.Clear
   
    Me.ComboBox1.ColumnCount = 2
    Me.ComboBox1.ColumnWidths = "50,50"
   
    For r = 6 To 29
        Me.ComboBox1.AddItem Cells(r, 1)
        Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = Cells(r, 2)
    Next r
   
End Sub
Avatar billede splokit Nybegynder
24. november 2006 - 12:38 #5
tror det skal være i forlængelse af hinanden!?


som en liste men ikke sikker
Avatar billede svla Mester
24. november 2006 - 20:33 #6
Tak for svarene
Jeg har været på arbejde siden oprettelse af spørgsmål.
Jeg tjekker lige svarene og ser hvad jeg kan bruge, - vender helt sikkert tilbage, men har lidt travlt indimelllem.
Avatar billede svla Mester
24. november 2006 - 21:31 #7
Hej igen
Jeg har testet alle forslag, men desværre fik jeg kun en enkelt god ide fra splokit til definering af områdeliste på et excelark.
De andre forslag fik jeg ikke til og virke som jeg havde tænkt. Måske har jeg ikke formuleret mig klart nok.
Det drejer sig om at begge tekstkolonner i combobox'ens liste skal komme ind i combobox'ens teksfelt øverst, når der bobbeltklikkes på en tekst i combobox'ens listen.
Håber stadigvæk på hjælp.
Avatar billede kabbak Professor
24. november 2006 - 23:43 #8
det er rigtig som splokit skriver

Private Sub ComboBox1_Change()
Me.ComboBox1.Value = Me.ComboBox1.List(ix) & " " & Me.ComboBox1.List(ix, 1)

End Sub

det sætter de 2 kolonner sammen efter valg, den eneste ændring er & tegnet i stedet for +
Avatar billede svla Mester
25. november 2006 - 01:19 #9
Til kabbak og supertekst
Det som kabbak kom med fik supertekst's forslag til og virke perfekt, dog skulle "value" skiftes med "Text", og så var det helt perfekt, jeg fik det som jeg manglede.
Tak - tak, begge to og læg begge et svar, jeg synes at i må deles om point, hvis det kan lade sig gøre.
Avatar billede kabbak Professor
25. november 2006 - 10:15 #10
et svar ;-))
Avatar billede supertekst Ekspert
25. november 2006 - 13:19 #11
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