Combo boks skal finde værdier og returnere disse i et felt

Hvis det er i en userform, skal du læse begge kolonner ind, du kan jo bare skjule den sidste, hvis den ikke skal ses.

her overføres værdien i B kolonnen til en tekstbox


Private Sub ComboBox1_Change()
TextBox1.Text = ComboBox1.Column(1)
End Sub

Det er en combo boks i selve regnearket

I Comboboksens Propertiers

ListFillRange  A1:B5
ColumnCounts  2

Tryk vis programkode, der skal stå:

Private Sub ComboBox1_Change()
Range("C1").Value = ComboBox1.Column(1)
End Sub


Hvor C1 er den celle du vil have det ind i, og hvis din combo, ikke hedder ComboBox1, så skal den også rettes

'kabbak' jeg har hverken ListFillRange eller ColumnCount i min properties?

ok det er fordi du bruger den combo fra formularer, du skal bruge den fra kontrolelementer

okay, det prøver jeg

Hvis du bruger den fra formularer vil der når du højreklikke på den blive vist en menu.
Her vælger du Formater Kontrolelement.
På fanebladet kontrolelement står der "Cellekæde". Her indsætter du en tilfældig celle fx G1.
I C12 skriver du så
=INDEKS(A1:B5; G1; 2)
dette vil give dit valg

se evt. eks
www.tbdl.dk/excel/komboboks.xls

hvordan får jeg combo boksenaktiv

Hvis det er den fra komtrolelementer, så tryk på Ikonen med den trekantede linial/blyant, den skifter designtilstand

tak for hjælpen :-) smider du et svar.

virker det ? ;-))

'kabbak' det virker fint, tak for hjælpen