indrykning

list.
"001 & vbtab & titelen"
hvor det er titelen den skal chekke.

For i = 0 To List1.ListCount - 1
  if lcase(mid$(List1.List(i), instr(List1.List(i),vbTab) + 1)) like LCase(Replace(Text2.Text, " ", "*")) & "*" Then
            List2.AddItem List1.List(i)
  End If
Next

øj fedt det gik hurtigt
hvad gør den med mid$ og instr

Instr returnerer første forekomst af et bestemt tegn, her vbTab. Da du ikke skal have selve tegnet med benytter vi instr + 1.
Mid returnerer en del af en streng. Her returnerer jeg alle tegn fra vbTab (+1) til der ikke er flere - ved at angive endnu en parameter kunne du f.eks. vælge altid at tage 3 tegn.

PS: Mid og Mid$ gør det samme. $ angiver bare at den automatisk caster til en string - egentlig lidt overfløding ;-)

aha ok takker.
er det så muligt at sotere listen efter alfabet nu hvor jeg har kommet tal ind i listen.

ok man kan jo gå hen og blive klog her inde.

er det så muligt at sotere listen efter alfabet nu hvor jeg har kommet tal ind i listen.

Ja, men forsvinder ideen med tallene så ikke?

- og det er ikke så enkelt endda. SKAL brugeren kunne se tallene?

ja men de skal vælge og den skal soter efter nr eller titel

har fundet løsning på sortering takker for hjælpen.
lukker