Combobox vullen

[CRUZ2]

Excel leden ik wil met de volgende code als ik op het pijltje druik dat hij het artikel vind maar het lukt niet ??

Dim WS As Worksheet
    On Error Resume Next
    With Worksheets("Gegevens").Range("A:G")
        Set P = .Find(Cbo_Product.Value, LookIn:=xlValues, lookat:=xlWhole)
            If Not P Is Nothing Then
            Cmd_New.Enabled = False
            Txt_Voorraad.Value = Worksheets("gegevens").Range("B" & P.Row).Value
            Txt_ID.Value = Worksheets("gegevens").Range("A" & P.Row).Value
            Txt_ProductNr.Value = Worksheets("gegevens").Range("C" & P.Row).Value
            Txt_Omschrijving.Value = Worksheets("gegevens").Range("D" & P.Row).Value
            Txt_Verpakt.Value = Worksheets("gegevens").Range("E" & P.Row).Value
        Else
            Txt_Voorraad.Value = ""
            Txt_ID.Value = ""
            Txt_ProductNr.Value = ""
            Txt_Omschrijving.Value = ""
            Txt_Verpakt.Value = ""
            Cmd_New.Enabled = False
        End If
   
    End With
End Sub

Hoe vul ik nou de bombobox met de gegevens uit Worksheets("Gegevens").Range("A:G")

 

[Warme bakkertje]

In eigenschappen v/d combobox vul je bij Listfillrange het bereik met gegevens in.

 

[CRUZ2]

Hartstikke bendaknt Rudi

Echter ik heb het opgelost door middel van 3 comboboxen
Dit om de lijst overzichtelijk te houden

Hoe kan je comboboxen disablen of enablen?

Stel voor 3 comboxen 1-2-3
Als combobox 1 is ingevuld dan 2 en 3 disablen
Als combox 2 is ingevuld dan 1 en 3 disablen
en so on

 

[Warme bakkertje]

Test deze eens.Door een waarde te kiezen in een CB worden de andere CB uitgezet, door de CB terug te wissen worden de andere CB terug aangezet.