Meerder formules in één cel

[Tijsss]

Beste Mensen,

Is het mogelijk om de onderstaande vb. formules samen toevoegen tot een formule zodat die in 1 Cel (R2) past?
R2

=DEEL(G2;1;VIND.SPEC("Blauw";G2;1))

=DEEL(G2;1;VIND.SPEC("Rood";G2;1))

=DEEL(G2;1;VIND.SPEC("Groen";G2;1))

=DEEL(G2;1;VIND.SPEC("Geel";G2;1))

=DEEL(G2;1;VIND.SPEC("Paars";G2;1))

Ik hoop dat jullie een oplossingen, alvast bedankt.

Mvg Tijs

 

[Ginger]

Zonder voorbeeldbijlage kunnen we helaas niet zien wat de rest van de tekst in cel G2 is. Waar ik op doel is dat er bijvoorbeeld een ander teken oid in kan staan waar je ongeacht de "kleur" op kan splitsen.

 

[VenA]

Misschien met een UDF?

Function VenA(r)
Ar = Array("Blauw", "Rood", "Groen", "Geel", "Paars")
For j = 0 To UBound(Ar)
    If InStr(1, r.Value, Ar(j), 1) <> 0 Then
        VenA = Trim(Mid(r, 1, InStr(1, r.Value, Ar(j), 1) - 1))
        Exit For
    End If
Next j
End Function

 

[Tijsss]

Beste mensen bedankt voor het reageren.

@Ginger
Hierbij het voorbeeld bestandje.

@VenA
Ik ben er mee bezig, maar het is me nog niet gelukt.

Alvast bedankt!

Bekijk bijlage TestBestandje.xlsx

 

[VenA]

Met een kleine aanpassing.

 

[Ginger]

Met een formule....

Zet in bereik E1:E6 dit tabelletje
KLEUREN
Blauw
Rood
Groen
Geel
Paars

Dan kan je in cel B2 en verder deze formule plaatsen...

=IFERROR(LOOKUP(1E+100;SEARCH($E$2:$E$6;A2);$E$2:$E$6);"")

(NL functies: als.fout; zoeken; vind.spec)

 

[Tijsss]

Beste VenA,
Super hij werkt! bedankt!

Ik denk dat ik me toch maar iets meer ga verdiepen in VBA , nog tips?!

Mvg
Tijs

 

[HSV]

Andere benadering.

Gedeclareerd as string (cel blijft leeg ipv van nul indien kleurnaam niet aanwezig).
Voor meerdere kleurnamen in tekst (uitkomst alle kleurnamen).

Function hsv(r As Range) As String
arr = Split("Blauw Rood Groen Geel Paars")
For x = 0 To UBound(arr)
     If InStr(1, r.Value, arr(x), 1) > 0 Then hsv = IIf(Len(hsv) = 0, arr(x), hsv & "\" & arr(x))
 Next
End Function

 

[Tijsss]

Bedankt voor jullie hulp! Het is op meerdere manieren gelukt!

Mvg Tijs

ps bij deze meld ik de vraag als opgelost!