Opslag via makro i userform

hvis du læser begge kolonner ind i cbVarenummer, du kan skjule B kolonnen i cbVarenummer, hvis du ønsker det.

så ved ændring, eller clik cbVarenummer's kode,efter hvilken du bruger, sætter du denne linje ind.

lbVarenavn = cbVarenummer.column(1)

Hvordan læser jeg begge bolonner ind i cbVarenummer?

i properties for cbVarenummer , Rowsourse skriver du
Ark1!A1:B1000

ret selv til dit ark og område
Set ColumnCount til 2
Columnwidths til feks. 10 pt;0 pt
0pt betyder at kolonne 1 ikke ses

Jeg forstår ikke helt:
Du skriver at jeg i cbVarenummer, som er en dropdown, skal gøre så jeg ikke kan se kolonne 1? Jeg er ikke med!
jeg har lavet en Label, som jeg gerne vil have skrevet varenavnet i. Kan det lade sig gøre - eller skal jeg lave en tekstbox?

jeg går ud fra at cbVarenummer er en kombinationsboks, der indlæser du de 2 kolonner a og b ved at du i Rowsourse skriver  Ark1!A1:B1000.

Set ColumnCount til 2' der er 2 kolonner i kombinationsboksen

Første kolonne i boksen er 0, som er det samme som kolonne A, Anden kolonne, er 1 i boksen og er det samme som kolonne B, derfor er  cbVarenummer.column(1), det samme som B kolonnen.

set Columnwidths til feks. 10 pt;0 pt ' 0 pt, betyder at kolonne 2 ikke sesmen at kolonne 1 vises med 10 punkter.
jeg glemte at det var en label, sådan kommer værdien fra kolonne B over i din Label.

lbVarenavn.Caption = cbVarenummer.column(1)

Tak skal du have, men jeg har stadig problemer.
Jeg mener jeg har gjort som du skriver, men får følgende fejl:

"Could not get the Column property. Invalid argument."

Det ser ud som om det er galt med lbVarenavn.Caption = cbVarenummer.Column(1).

Jeg har sat linjen ind i en makro i cbVarenummer, da det jo er den der styrer hvad der skal stå i lbVarenavn! Er det rigtigt?

Private Sub cbVarenummer_Change()
lbVarenavn.Caption = cbVarenummer.Column(1)
End Sub"

det er rigtig nok, her er et eksempel:

Private Sub ComboBox1_Change()
Label1.Caption = ComboBox1.Column(1)
End Sub

Det virker ikke! Har sat følgende ind i cbVarenummer:
RowSourse = Status!A1:B19000
ColumnCount = 2
ColumnVidths = 10 pt;0 pt

I cbVarenummer er indsat følgende makro:

Private Sub cbVarenummer_Click()
lbVarenavn.Caption = cbVarenummer.Column(1)
End Sub

Label hedder lbVarenavn.

Hvad er der galt?

prøv at sende
kabbak snabela tiscali dot dk

Er sendt!

fejlen var i din kode

Private Sub UserForm_Activate()
With cbVarenummer
    '.RowSource = "Varenummer"' Varenummer er kun for kolonne A, koden overrouler det du har skrevet i properties
  .RowSource = "Status!A1:B19000"
    .ListIndex = 0
End With

End Sub

Fantastisk Kabbak - Tusind tak for hjælpen!
Smid et svar!

et svar ;-))