VBA: Combobox problem

Indsæt denne linje, i stedet for den du bruger:

TextBox1.Text = Application.VLookup(ComboBox1.Value, Worksheets("Ark1").Range("A2:C20"), 3, False)

Hej ebea.
Jeg vil gerne have funktionen til at være dynamisk, da jeg ikke ved om der kommer 20 eller 500 vare-numre.

Jeg har fået denne kode til at virke:

Private Sub ComboBox1_Change()
    Dim lastrow As Integer
    navn = ComboBox1.Value
    lastrow = Sheets("ark1").Cells(Sheets("Ark1").Rows.Count, 1).End(xlUp).Row
    område = "A2:D" & lastrow
    pris = Application.WorksheetFunction.VLookup(navn, Sheets("Ark1").Range(område), 2, False)
    TextBox1.Value = pris
    lager = Application.WorksheetFunction.VLookup(navn, Sheets("Ark1").Range(område), 3, False)
    TextBox2.Value = lager

End Sub

Private Sub UserForm_Initialize()
    Dim lastrow As Integer
    Dim i As Integer
    lastrow = Sheets("ark1").Cells(Sheets("Ark1").Rows.Count, 1).End(xlUp).Row
    For i = 2 To lastrow
        ComboBox1.AddItem Sheets("Ark1").Cells(i, 1)
    Next i
       
End Sub

#2 - Nu er jeg med på, hvad du mente. Så dit problem er løst, med din ændrede kode?

#2 - Det er ikke nødvendigt at have den lange kode du har, for at dine TextBoxe viser noget tekst.  Koden herunder, laver det samme.

Private Sub ComboBox1_Change()
    TextBox1.Text = Application.WorksheetFunction.VLookup(ComboBox1.Value, xRg, 2, False)
    TextBox2.Text = Application.WorksheetFunction.VLookup(ComboBox1.Value, xRg, 3, False)
End Sub

Hej ebea

Jeg har ikke lige opdage dine svar.
Jeg prøver dit løsning af ved lejlighed