OpenOffice.info

Function ZIW (a)
a = TRIM(STR(a))
k = ""
For i = 1 to LEN(a)
j = MID(a,i,1)
Select Case j
Case "1"
k = k & "eins-"
Case "2"
k = k & "zwei-"
Case "3"
k = k & "drei-"
Case "4"
k = k & "vier-"
Case "5"
k = k & "fünf-"
Case "6"
k = k & "sechs-"
Case "7"
k = k & "sieben-"
Case "8"
k = k & "acht-"
Case "9"
k = k & "neun-"
Case "0"
k = k & "null-"
End Select
Next i
ZIW = LEFT(k, LEN(k)-1)
End Function

ich bin leider noch nicht vertraut mit calc und wollte fragen, wie ich obige funktion so umändern kann, dass ich wörter einer liste in zahlen umwandle.
als beispiel: alle a,A,ä,Ä sollen zu 1 umgewandelt werden und alle b,B,f,F zu 2, so dass aus Ab 12 wird....

mfg dkn