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.hams...@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+unsubscr...@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+unsubscr...@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
