Naam omdraaien

[Hoornvan]

Hallo helpers,

Misschien een domme vraag?
Bestaat er ook een formule om een naam om te keren?
B.V.B. Groot de J. wordt dan J. de Groot
Zelf dacht ik misschien lukt het met spitsen en dan weer samen voegen.
Tot nog toe geen succes.
Weet iemand of dit wel mogelijk is?

 

[Wigi]

Inderdaad, splitsen via bvb. LINKS, RECHTS, DEEL, VIND.SPEC, en dan weer samenvoegen.

 

[Hoornvan]

Wigi,

Inderdaad, splitsen via bvb. LINKS, RECHTS, DEEL, VIND.SPEC, en dan weer samenvoegen.

Bedankt voor de uit leg, ik ga het proberen.

 

[Warme bakkertje]

Wim, ik heb er anders ook een mooie voor
intypen als bv

=RevText(A1)

Function RevText(sInhoud As String) As String
Dim arrTempInhoud As Variant
Dim arrTempOmkeer As Variant
Dim i As Integer, y As Integer

    arrTempInhoud = Split(sInhoud, " ")
    
    y = 0
    
    ReDim arrTempOmkeer(UBound(arrTempInhoud))
    
    For i = UBound(arrTempInhoud) To 0 Step -1
        arrTempOmkeer(y) = arrTempInhoud(i)
        y = y + 1
    Next i

    RevText = Join(arrTempOmkeer, " ")

End Function

Mvg

Rudi

 

[Hoornvan]

Warme bakkertje,

Wim, ik heb er anders ook een mooie voor

Hartelijk bedankt voor de code, die werkt perfect.

 

[snb]

sub keerom()
  sq=split("Groot de J.")
  st=sq
  for j=0 to ubound(sq)
    st(ubound(st)-j)=sq(j)
  next
  c0=join(st)
end sub