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

Hallo Wolfgang & Micha,

so isses, wenn man die Funktion Zellen-orientiert umschreibt :-)) ...

[1] "text" wird (direkt) als Zeichenkette übergeben:

"A1": =SearchReplace("?Ä?ä?Ö?ö?Ü?ü?ß?é") ergibt in "A1": 
?Ae?ae?Oe?oe?Ue?ue?ss?e?

[2] "text" wird (indirekt) als Zelleninhalt übergeben:

"A1": ?Ä?ä?Ö?ö?Ü?ü?ß?é und "A2": =SearchReplace(A1) ergibt in "A2": 
?Ae?ae?Oe?oe?Ue?ue?ss?e?

Siehe hierzu: 
https://help.libreoffice.org/Calc/User-Defined_Functions/de

Gruß
Hans-Werner :-))


------ Originalnachricht ------
Von: "Wolfgang Jäth" <jawo.ml.hamster@arcor.de>
An: users@de.libreoffice.org
Gesendet: 13.07.2018 06:50:54
Betreff: 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


--
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