Extraheren van E-nr(s) uit tekst

[cortex]

Beste forumleden,

Ik zou enorm geholpen zijn als uit het bijgesloten tekstbestand het E-nr of E-nrs uit de tekst geëxtraheerd kunnen worden met het resultaat weergegeven in kolom B.

Alvast bedankt voor jullie support!

In de appendix het fictief voorbeeldbestand. Adressen zijn gefantaseerd.

Groet,

Cortex

 

[AlexCEL]

Excel 365:

=LET(x;TEKST.SPLITSEN(Tabel1[@locatie];" ");TEKST.COMBINEREN(" ";1;FILTER(x;LINKS(x;1)="E";"")))

 

[JEC.]

Met FILTERXML kun je dit robuuster maken. Nu worden alle woorden, startend met E, meegenomen.

 

[AlexCEL]

Klopt, maar die waren er niet...

Maar ok, zoiets zou ook kunnen (excel 365):

=TEKST.COMBINEREN(" ";1;XML.FILTEREN("<t><s>"&SUBSTITUEREN(Tabel1[@locatie];" ";"</s><s>")&"</s></t>";"//s[translate(.,'1234567890','')!=. and .*0!=0 and starts-with(., 'E')]"))

 

[cortex]

Excel 365:

=LET(x;TEKST.SPLITSEN(Tabel1[@locatie];" ");TEKST.COMBINEREN(" ";1;FILTER(x;LINKS(x;1)="E";"")))

Bedankt voor je reactie, ik gebruik Excel 2019; hoe breng ik deze formule ten uitvoer, als ik namelijk deze formule kopieer en plak in kolom B krijg ik geen resultaten?

 

[JEC.]

Gebruik de tweede formule van Alex. Die formule werkt in jouw Excel versie

Met deze UDF's kan het ook

Function jec(cell As String) As String
 Dim it
 For Each it In Split(cell)
   If it Like "E#*" Then jec = jec & IIf(Len(jec), " ", "") & it
 Next
End Function

of

Function jecc(cell As String) As String
 Dim it
 With CreateObject("vbscript.regexp")
   .Global = True
   .Pattern = "E\d+(?=\s)"
   For Each it In .Execute(cell)
     jecc = jecc & IIf(Len(jecc), " ", "") & it
   Next
 End With
End Function

 

[cortex]

@all,

Zeer bedankt voor deze creatieve oplossingen voor mijn vraagstuk.

Fijne feestdagen.

Mvg,
Cortex

 

[AlexCEL]

Succes ermee :thumb:

 

[cortex]

Alleen heb ik iets te snel gereageerd, er wordt slechts één E-nummer opgehaald i.p.v. één of twee, kunnen jullie nog even een cross check doen?

 

[snb]

In macromodule

Function F_snb(c00)
  F_snb = Join(Filter(Filter(Split(c00), "E"), "B", 0))
End Function

In B2:

=F_snb(A2)

of

=F_snb(Tabel1[@locatie])

 

[cortex]

Excellent, zeer bedankt voor deze fraai oplossing. Zeer content mee en derhalve case closed!