Deeltekst kopieren uit een cel

[stuurtie]

Kan iemand mij helpen met het volgende:

Ik heb in een kolom meerdere afkortingen staan van personen.
voorbeeld in kolom A:

KT/MR/JK
EL/KT
JK/MR/KT

Nu wil ik in de kolommen ernaast de verschillende afkortingen filteren en alleen die cel laten zien qua tekst.

voorbeeld:

A	B	C	D	E
KT/MR/JK	KT	MR	JK
EL/KT	KT			EL
JK/MR/EL		MR	JK	EL

Kunnen jullie mij vertellen hoe de formule dan moet worden per regel?

Alvast bedankt!

 

[edmoor]

Deze in een module:

Function SplitAFK(Vol As Range, Deel As Integer) As String
    Dim Afk() As String
    
    Deel = Deel - 1
    Afk = Split(Vol, "/")
    If Deel <= UBound(Afk) Then SplitAFK = Afk(Deel)
End Function

Aanroep in B1:
=SplitAFK(A1;1)

De 1 hierin is dus deel 1 van de / gescheiden string.

 

[AlexCEL]

Hoeveel personen per regel? Altijd 3?
Hoeveel verschillende personen zijn er überhaupt? Hier KT/MR/JK en EL. Zijn er nog meer?
Moeten ze per se per persoon gegroepeerd in een kolom staan?

Is het een optie dat je de personen in een rij zet en dan kijken of ze in de afkorting voorkomen (zie bijlage...)

 

[robdgr]

Waarom niet gewoon zo?: tab Gegevens --> Tekst naar kolommen

 

[stuurtie]

Bedankt allemaal voor de reactie.

Het voorbeeldbestandje van @AlexCel werkte voor mij prima.
Wellicht werkte de 1e oplossing ook maar dat lukte mij even niet.

Wat mij betreft kan dit draadje gesloten worden.

 

[robdgr]

Wat mij betreft kan dit draadje gesloten worden.

Kun je zelf doen bij je eerste bericht.