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
