Date: prev next · Thread: first prev next last
2018 Archives by date, by thread · List index


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

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.