Aakkosjärjestys

eikä silloinkaan kukaan antanut vastausta. Olen itsekin törmännyt monasti samaan "ongelmaan", enkä ole ratkaisua löytänyt.

Openoffice Calcilla tuon saa tehtyä vaihtamalla lajittelun kieltä miltei mihin tahansa eurooppalaiseen kieleen.
Ongelmia tulee vasta kun pitäis saada sekä Aalto Aimo että Älämölö aakkostettua oikein em. lisäksi.
Näyttäisi onnistuvan joillakin kielillä, kuten bokmålilla.
Excelilläkin luulisin, että vastaavan saa tehtyä.

normaali array-lajittelulla onnistuu
nimet A-sarakkeessa ja aakkostaa B-sarakkeeseen

Sub Aakkosta()
Dim rarray As Variant
Dim Vika As Double
Dim lkm As Long
Dim lkm2 As Long
Dim Nimi1 As String
Dim Nimi2 As String

On Error Resume Next

Application.ScreenUpdating = False
Range("B:B")= ""

Vika = Range("A65536").End(xlUp).Row
rarray = WorksheetFunction.Transpose(Range("A1:A" & Vika).Value)

For lkm = 1 To UBound(rarray)
For lkm2 = lkm To UBound(rarray)
If UCase(rarray(lkm2)) < UCase(rarray(lkm)) Then
Nimi1 = rarray(lkm)
Nimi2 = rarray(lkm2)
rarray(lkm) = Nimi2
rarray(lkm2) = Nimi1
End If
Next lkm2
Next lkm

Range("B1:B" & UBound(rarray)) _
= WorksheetFunction.Transpose(rarray)
Application.ScreenUpdating = True
End Sub