Hej hej

Textbox kan bara innehålla en ända lång textsträng, detta innebär att användaren inte kan göra något med priserna om du väler denna typ av formulärkontroll. Vidare så triggas textbox_change varje gång som användaren trycker på en tangent, det finns inget sätt att veta när användaren knappat klart om du inte istället triggar makrot från en knapp "visa priser". Det finns en formulärkontroll som heter lisbox, denna är smidigare att jobba med och låter dig koda för om användaren valt priser. Dernna bygger på datatypen collections.

Nedan kod bör fungera för din textbox:

Dim str as string: str = textbox1.value

'Splittar dina IDN från textbox på ";"
Dim vnt as variant: vnt = split(str, ";")

Dim Res As Variant
Dim fullText as string

'Loopa igenom dina splittade Idn
For i = 0 to ubound(vnt)

Res = Application.Match(vnt(i), Worksheets("Blad2").Range("A1:A100"), 0)

If Not IsError(Res) Then

If i = 0 then
Fulltext = Worksheets("Blad2").Range("B" & Res).Value
TextBox2.Value = Fulltext
Else
TextBox2.Value = Fulltext & vbcr & Worksheets("Blad2").Range("B" & Res).Value
End if


Else

TextBox2.Value = "Analys eller pris saknas"

End If

Obs, som du ser har jag återanvänd din kod och gjort modifieringar i den. Jag har inte testat koden, så kan finnas syntaxfel m.m.

Mvh
Christian