Excel: Text und Zahlen trennen

TITLE_WORD = Regexp.new '^[a-zäöüA-ZÄÖÜ][a-zäöüß0-9]+'
COUNTRY_CODE = Regexp.new '([A-Z]{2}\/?)+'  #matched nun auch nur "FR" ohne /
YEAR = Regexp.new '^[0-9]{4}$'

film = "City of God FR/BR/US 2002"

elements = film.split(' ')
title = ""
country_code = ""
year = ""

elements.each do |element|
 if element.match TITLE_WORD
   title += "#{element} "
   puts "TITLE_WORD #{element}"
 elsif element.match COUNTRY_CODE
   country_code += "#{element} "
   puts "COUNTRY_CODE #{element}"
 elsif element.match YEAR
   year += "#{element} "
   puts "YEAR #{element}"
 end
end
     
cvs = "\"#{title}\";\"#{country_code}\";\"#{year}\""

puts cvs

=A1&" "&B1&" "&C1&" "&D1&" "&E1

Option Explicit
Sub spiegeln()
' Spiegelt die Inhalte der Spalte A und schreibt das Ergebnis in Spalte B
Dim r%, s%
Dim lg%
Dim str As String
For r = 1 To Range("A65536").End(xlUp).Row
   lg = Len(Cells(r, 1))
       For s = lg To 1 Step -1
           str = str & Mid(Cells(r, 1), s, 1)
       Next s
   Cells(r, 2) = str
   str = ""
Next r
End Sub