Excel: find bruger med textbox?

Prøv med denne her kodestump :-)

Sub FindKunde()
    On Error GoTo Error
    Dim KundeNr As Integer
    Dim Række As Integer
   
    KundeNr = InputBox("Indtast kundenr.")

    Columns("A:A").Select
    Række = Selection.Find(What:=KundeNr, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Row
    MsgBox "Kundenr: " & Chr(9) & Chr(9) & Cells(Række, 1) & vbLf & "Navn: " & _
    Chr(9) & Chr(9) & Cells(Række, 2) & vbLf & "Mail: " & Chr(9) & Chr(9) & _
    Cells(Række, 3) & vbLf & "Telefon: " & Chr(9) & Chr(9) & Cells(Række, 4)
    Exit Sub

Error:
    MsgBox "Kundenr " & KundeNr & " kunne ikke findes"
End Sub

ja der noget med det men det skal komme fra i nogle textfelter og kundenr jeg skal indtaste skal være et textfelt også hvor jeg taster kundenr ind og ikke en popup box

Så kan du klare det med LOpslag() funktionen i Excel - kender du den?

nej vil gerne lære den

Hvis vi nu siger, at dine kunder er placeret på Ark1 i området
A2 til D200. Så prøver vi at lave et opslag der slår op i det område.

Hvis du så går til Ark2 og gør følgende:
-i celle A1 skriver du kundenummeret du vil slå op.
-i celle b1 skriver du =LOPSLAG(A1;Ark1!A2:D200;2;FALSK)
-i celle c1 skriver du =LOPSLAG(A1;Ark1!A2:D200;3;FALSK)
-i celle d1 skriver du =LOPSLAG(A1;Ark1!A2:D200;4;FALSK)

Prøv at se om du kan få det til at virke.

kan du ikke prøve at lave det og sende det til mig på zubnet@zubnet.dk

jeg er i visual basic programet og det er inde jeg vil have det frem i nogle textfelter ved indtast fra kundenummmer.

Nu er jeg vist ved at være på sporet. Jeg sender et eksempel til dig :-)

ok takker for hjælpen
du fortjent pointene

Selv tak :-)