Re: [de-users] Calc: Umlaute umschreiben ü->ue usw.

Am 12.07.2018 um 20:59 schrieb Micha Kuehn:
> OoOHWHOoO schrieb:
>
> > Hallo Micha, das Makro
> > führt (beispielsweise) folgende Ersetzungen in dem aktuell geöffneten 
> > (fokussierten) CALC-Tabellenblatt für alle Zellen durch:
>
> Lieber OoOHWHOoO/Hans-Werner,
>
> danke für deine Mühen. Das ist nicht ganz, was ich suchte. Ich wollte
> die Ersetzung in bestimmten Zellen mit Hilfe einer Formel haben. 

Aber ein guter Ausgangspunkt ist die Funktion schon; man muss sie nur
einen bisschen [tm] umschreiben:

Function SearchReplace (text As String)

    Dim iSR as Long ' [index] Search Replace
    Dim SS() as String ' [array] Search String
    Dim RS() as String ' [array] Replace String

    SS = Array("Ä" ,"ä" ,"Ö" ,"ö" ,"Ü" ,"ü" ,"ß" ,"é")
    RS = Array("Ae","ae","Oe","oe","Ue","ue","ss","e")

    For iSR=0 To UBound(SS) Step 1
        text = Replace (text, SS(iSR), RS(iSR))
    Next iSR

    SearchReplace = text

End Function

Wolfgang
-- 
Dank Donald Trump ist mir endgültig klar geworden: Es ist
nicht der Turm von Pisa, der schief steht, es ist die Welt!


-- 
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy