Problemen met Zoeken

[Excelvbas01]

Ik wil aan de hand van zoekopdracht gegevens ophalen binnen een userform.
Alleen dit geeft problemen.

Zie bijgevoegde bestand.

 

[snb]

Zou een Listbox niet veel handiger zijn ?

 

[Excelvbas01]

Beste snb
Listbox is mij bekend maar wil echt zoeken zoals ik in vb heb aangegeven.

 

[VenA]

In welk bereik wil je dan zoeken?

Range("A2:D")

zal vast niet goed gaan.

 

[snb]

Ik wacht wel tot je vastgelopen bent.

 

[Excelvbas01]

Waar ik wil zoeken is in de range:

 ("a2:d") of (A2:d1000)

de fout die ik krijg is: Door de toepassing of door object gedefinieerde fout

zal iets simpels zijn maar kom er niet uit.

 

[Haije]

maak van

Set werkrange = Sheets("Blad1").Range("A2:D")

eens

Set werkrange = Sheets("Blad1").Range("A2:D[COLOR="#FF0000"]1000[/COLOR]")

 

[Pagadder]

Vul de ID in die je wilt zoeken en klik in een andere textbox (of gebruik tabtoets)

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Set werkrange = Worksheets("Blad1").Columns(1)
Set gevonden = werkrange.Find(What:=TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole _
        , SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    If Not gevonden Is Nothing Then
        Me.TextBox1.Value = gevonden.Value
        Me.TextBox2.Value = gevonden.Offset(0, 1).Value
        Me.TextBox3.Value = gevonden.Offset(0, 2).Value
    Else
        MsgBox "ID " & zoeken & " is niet correct.", 48, "Niets gevonden."
        TextBox1.Text = ""
End If
End Sub

 

[Excelvbas01]

Allen bedankt voor het meedenken.