IF formule om middelste woord(en) eruit te filteren

[Djani]

Hoi allemaal,

Ik wil een IF formule toepassen op de waarde waarnaar verwezen wordt, maar daarbij wil ik de middelste woorden eruit filteren. Er zijn echter drie categorieen:

1. RENAULT SCENIC G3 = 3 woorden
2. CITROEN C4 PICASSO G2 = 4 woorden
3. LAND ROVER RANGE ROVER EVOQUE G1 = 5+ woorden

De formule zou bij geval 1 "SCENIC" moeten geven; bij geval 2 "C4 PICASSO"; en bij geval 3 "RANGE ROVER EVOQUE"

De waarden zitten in kolom A.

Kan iemand mij hiermee verder helpen?

Met vriendelijke groet,

Djani

 

[HSV]

Je zit in de Vba sectie van Excel.
Ik neem aan dat je een macro bedoelt i.p.v. een formule.

Sub hsv()
Dim sn, sq, j As Long, msg As String
sn = Cells(1).CurrentRegion
   For j = 1 To UBound(sn)
    sq = Split(sn(j, 1))
    msg = msg & Mid(sn(j, 1), Len(sq(0)) + 1, Len(sn(j, 1)) - Len(sq(0)) - Len(sq(UBound(sq)))) & vbLf
   Next j
 MsgBox msg
End Sub

 

[Djani]

Ook niet zo slim van mij, het gaat om een formule inderdaad. Ik zal deze thread als opgelost markeren en hem plaatsen in de juiste sectie.

In ieder geval bedankt voor je moeite en mijn excuses.