Application Vlookup - virker ikke

mon ikke du skal have arknavnet med også

lblAnlaegPrimo.Caption = Application.WorksheetFunction.VLookup(CbbAnlaeg.Text, sheets("Ark1").Range("B20:Q500"), 2, 0)

Husk at koden skal være her

Private Sub ComboBox1_Change()
lblAnlaegPrimo.Caption = Application.WorksheetFunction.VLookup(CbbAnlaeg.Text, Sheets("Ark1").Range("B20:Q500"), 2, 0)
End Sub

Det havde jeg også forsøgt tidligere men det er ikke der problemet ligger.

Den tidligere Combobox AddItem For Next som du har hjulpet med er den som skal styre opslaget.

Jeg har forsøgt at udfylde alle celler i kolonne B for at se om det var tomme celler der blokerede men det ser det ikke ud til.

Min UserForm hedder frmAnlaeg
Min ComboBox hedder cbbAnlaeg
Min Label hedder lblAnlaegPrimo

Sub'en der henter data ind i Combobox'en:

Private Sub UserForm_Initialize()
Dim c As Range

'Hent værdier til Combobox
For Each c In Ark1.Range("B20", Ark1.Range("B65536").End(xlUp)).Cells
    If c.Value <> "" Then
        CbbAnlaeg.AddItem c
    End If
Next

End Sub


Sub'en der skulle slå værdierne op:
Private Sub CbbAnlaeg_Change()

'Find tilhørende værdier til opslagsværdi
lblAnlaegPrimo.Caption = Application.WorksheetFunction.VLookup(CbbAnlaeg.Text, Sheets("Ark1").Range("B20:Q25"), 2, 0)

End Sub

Har lige testet om det er fordi der ikke står noget i cellerne (kolonne 2) men det var heller ikke derfor.

Har lige testet. det virker da fint. Du må have en fejl andet steds.
Hvad er fejlmeddellelsen ?

Den kommer med meddelsen:

Run-time error '9'

Subscript out af range

er det værdier du har i B kolonnen eller er det tekst

Det er tekst (men kan være begge dele)

Eksempelvis:

A    B            C        D    E        F
1    Skrivebord  5.000    0    5.000    0

Søger i B og returnerer C. Samme funktion skal anvendes til de øvrige værdier i D, E og F.

nu er det læst ind i et array, prøv det

Private Sub CbbAnlaeg_Change()
Dim Data As Variant, I As Integer
Data = Sheets("Ark1").Range("B20:Q" & Ark1.Range("B65536").End(xlUp).Row)

For I = 1 To UBound(Data)
If Data(I, 1) = CbbAnlaeg.Text Then
lblAnlaegPrimo.Caption = Data(I, 2) ' kolonne C
'lblAnlaegPrimo.Caption = Data(I, 3) ' kolonne D
'lblAnlaegPrimo.Caption = Data(I, 4) ' kolonne C
' o. s.v.
Exit Sub
End If
Next
End Sub

'lblAnlaegPrimo.Caption = Data(I, 4) ' kolonne E

Jeg tror der er noget galt i mit ark for den virker heller ikke. Jeg kan få begge til at virke i et andet ark såååå...

Jeg vender lige tilbage når jeg har fået set lidt mere på det - har lige lidt arbejde som skal laves til i morgen.

kabbak - det virker, men ved ikke hvad der er galt i mit andet ark.

Smider du et svar?

et svar ;-))