skriv til testbox fra celle med lookup

dette er kun et op slag ved ikke om det virker men det er noget at vejen
det med textboxene er
Cells(1, 2) = Textbox1
call opslag
Textbox9 = Cells(1, 4)

du kan lige lege med der så kan du også få den til at  virke sammen med den autofunktion

Sub opslag()
Dim i, o, p As Integer
Dim Arr(1 To 10000, 2) As Variant
Windows(mappe).Activate
Application.ScreenUpdating = False
For i = 1 To 10000
    Arr(i, 0) = Sheets("post").Cells(i, 1).Value 'postnr den skal søge på
    Arr(i, 1) = Sheets("post").Cells(i, 2).Value 'Retur værdien
Next i
For o = 1 To 1
    For p = 1 To 1
        If Sheets("post").Cells(o, 4).Value = Arr(p, 0) Then
           
            Sheets("post").Cells(o, 6) = Arr(1, 4) 'hvor retur værdien skal ende
            Exit For
        End If
    Next p
Next o
Application.ScreenUpdating = True
End Sub

Alternativt kunne du indsætte dette i formens kodemodul

Private Sub TextBox8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Range("C1") = TextBox8.Value
    TextBox9.Value = Range("D1")
End Sub

Bak> kan man få den til at opdatere textbox automatisk og ikke førse efter enter/tab til næste box?
Splokit> Jeg er ikke helt med på hvad den gør, og hvor jeg skal bruge den..
Hvad står dette for: ByVal Cancel As MSForms.ReturnBoolean ?

Jep, men så prøv at bruge denne istedet
Går ud fra at dine postnumre er 4 cifrede

Private Sub TextBox1_Change()
    If Len(TextBox8.Value) = 4 Then
        Range("C1") = TextBox8.Value
        TextBox9.Value = Range("D1")
    End If
End Sub

det virker jo som det skal (og må man sige igen, når det gælder dig)

Hvad står dette for, ByVal Cancel As MSForms.ReturnBoolean ?

"Hvad står dette for, ByVal Cancel As MSForms.ReturnBoolean ?"

Hvis du i koden tjekker for ulovlig indtastning i tekstboksen, kan du få den til at
tilgå tekstboksen igen for at skrive det rigtige.

et tjek på om de tal, kan være

if not isnumeric(TextBox8) then
Msgbox "Det skal være tal"
Cancel = True
end if

ok, så lærte jeg det
Nu er der jo nogle postnummere der er på 3 tal, kan man få den til at sige mellem 3og 4?

if Len(TextBox8)<3 and Len(TextBox8)>4 then
Msgbox " Der skal være 3 eller 4 tal"
Cancel = True
end if

ok takker, smider du et svar

det er ikke mig der skal have point, mit var bare en tilføjelse.

kommer der svar her, så jeg kan får rydet op inden jul:)

Hvem skal have svaret!?

Jeg endte med denne her.
Private Sub TextBox8_Change()
    If Len(TextBox8.Value) = 4 Then
        Sheets("post").Range("C1") = TextBox8.Value
        TextBox9.Value = Sheets("post").Range("D1")
    End If
End Sub

Splokit, vil du have point?

Ok så lukker jeg her, hvis der er nogle der mener de har point tilgode, så sig til, jeg har fået hjælp, og vil gerne "betale"