Excel - Ekezetes karakterek csereje

[Zilahy Andra's]

Hi!

A tárgybelit kéne automatikusan megoldanom egy cellatartományon. Ecxel 
2003-ról van szó.

Adott egy tábla, amibe felveszek egy rakat usert.

A oszlop: vezetéknév
B oszlop: keresztnév
...
F oszlop: ide generálom a usernevet (formátuma Tóth Józsefnél t.jozsef 
lenne) a köv. függvénnyel:

=ÖSSZEFÛZ(KISBETÛ(HA(VAGY(BAL(A2;2)="Cs";BAL(A2;2)="Dz";BAL(A2;2)="Gy";BAL(A2;2)="Ly";BAL(A2;2)="Ny";BAL(A2;2)="Sz";BAL(A2;2)="Ty";BAL(A2;2)="Zs");BAL(A2;2);BAL(A2;1)));".";KISBETÛ(B2))

Ez a következőt csinálja: ha a vezetéknév összetett betűvel kezdődik, 
akkor a usernév pont előtti része a kettős betű lesz kisbetűkkel, ha 
szimpla betű, akkor csak egy betű van a pont előtt.

Pl.: Kádár Kata = k.kata , de Szabó Kornélia = sz.kornélia

Hogyan tudom megoldani az ékezetes karakterek automatikus cseréjét az 
ékezetmentes megfelelőjükre?
A neten találtam egy VBA scriptet, de a _PONTOS_ használatát már nem 
mellékelték.

------------
Option Explicit

'-- Add more chars to these 2 string as you want
'-- You may have problem with unicode chars that has code > 255
'-- such as some Vietnamese characters that are outside of ASCII code 
(0-255)
Const AccChars = 
"ŠŽšžYAÁÂAÄAÇEÉEËIÍÎI?NOÓÔOÖÕUÚUÜÛÝaáâaäaçeéeëiíîi?noóôoöõuúuüûýy"
Const RegChars = 
"SZszYAAAAAACEEEEIIIIDNOOOOOOUUUUUYaaaaaaceeeeiiiidnoooooouuuuuyy"

Sub StripAccent(aRange As Range)
'-- Usage: StripAccent Sheet1.Range("F2:F30")
Dim A As String * 1
Dim B As String * 1
Dim i As Integer

For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
aRange.Replace What:=A, _
Replacement:=B, _
LookAt:=xlPart, _
MatchCase:=True
Next

End Sub
-----------

Mit kell ezzel csinálni, hogy vagy automatikusan fusson le, ha a 
táblázatot megnyitom, vagy (ami még jobb), egy -pl. eszköztáron levő- 
gombra kattintással tegye a dolgát?

Ha van valakinek megoldása, szájbarágósan, ha kérhetném. :-)

Előre is thx.

Bye,

-- 
Zilahy András
rendszergazda
Vörösmarty Mihály Ének-zenei Nyelvi Általános Iskola és Gimnázium
az ELTE Gyakorlóhelye - Budapest | zilahy.andras at vmzene.hu | www.vmzene.hu