Combobox - opslag - textbox

Hvad er makroen til textbox1 ???

Smid denne kode på Comboboxen:  Højreklik på denne og vælg View Code:

Private Sub ComboBox1_Change()
Dim Cont
Dim myVar
Cont = ComboBox1.Value

myVar = Application.WorksheetFunction _
    .VLookup(cont, Range("A1:B4"), 2, 0)
UserForm1.TextBox1.Text = myVar

End Sub

Ret Range til det område, hvor dine data faktisk står.

Kolonne A skal indeholde værdier, der findes i din komboboks.

Når makrone ligger på combo-boksen og ikke på tekstboksen er det selvfølgelig fordi, det er ændringer her, der skal medføre ændringer i tekstboksen.

Og nej, du skal ikke til bageren efter makroner. Makroen skulle der selvfølgelig have stået :-)

Det virker rigtig godt :o) ....... dog stejler den hvis der er to ens eks. to tomme celler

chewie

Ja. Der må ikke være to ens i kolonne A. Gerne i kolonne B.

Og så fik jeg trykket for hurtigt. Hvis der er to ens i kolonne A, kan den jo af gode grunde ikke vide hvilken af dem du ønsker at se, når du vælger i komboboksen.

Det er klart .... Det er ikke noget problem for mig da de tomme aldri vil blive brugt ......

Kunne man sætte en kode ind med "HVIS FEJL SKRIV _du kan ikke vælge denne på listen_" ??

Jeg kigger på det. Men hvis de tomme aldrig bliver brugt, kan du så ikke bare udelade dem helt?

Ellers ret din kode til:

Private Sub ComboBox1_Change()
Dim cont
Dim myvar
cont = ComboBox1.Value
If cont = "" Then
MsgBox "Du må ikke vælge en tom", vbOKOnly + vbCritical, "Valgfejl"
Exit Sub
End If
myvar = Application.WorksheetFunction _
    .VLookup(cont, Range("A1:B7"), 2, 0)
UserForm1.TextBox1.Text = myvar

End Sub

Så får du en meddelelsesboks hvis brugeren vælger en tom linie i komboboksen.

Det er meget smukt ......... mange tak

Jeg har lavet arket sådan at alle uden excel viden kan redigere i det .... derfor er der tomme celler (det er fremtid- og udvidelsessikret) :o)

Helt i orden :-)  Tak for point.