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


Hallo Franklin,

ja, so ist es, da "SS" und "RS" mit der selben Schleifenvariable "iSR" indiziert werden:

"RS(0)" ersetzt jeweils gefundenes "SS(0)", "RS(1)" ersetzt jeweils gefundenes "SS(1)" und so weiter.

:
SS = Array("Ä" ,"ä" ,"Ö" ,"ö" ,"Ü" ,"ü" ,"ß" ,"é")
RS = Array("Ae","ae","Oe","oe","Ue","ue","ss","e")
:
For iSR=0 To UBound(SS) Step 1
oRD.SearchCaseSensitive = True
oRD.SearchString = SS(iSR)
oRD.ReplaceString = RS(iSR)
oS.ReplaceAll(oRD)
Next iSR
:

Gruß
Hans-Werner :-))

------ Originalnachricht ------
Von: "Franklin Schiftan" <franklin.schiftan@gmx.de>
An: users@de.libreoffice.org
Gesendet: 11.07.2018 07:30:44
Betreff: Re: [de-users] Calc: Umlaute umschreiben ü->ue usw.

Hallo OoOHWHOoO,

am 11.07.2018 um 07:24 Uhr schrieb OoOHWHOoO <OoOHWHOoO@t-online.de>:

Hallo Franklin,

ja, so ist es. Alle "Ä"s werden durch "Ae", alle "ä"s durch "ae", alle
"Ö"s durch "Oe" und so weiter ersetzt.

Das ist soweit klar, ich wollte nur wissen / klarstellen, dass man
zu ergänzende Zeichen in "SS" und "RS" immer an der gleichen Stelle
/ Position ergänzen muss.

Allerdings habe ich das Ganze (auf die Schnelle) nur mit diesen Wörtern
in jeweils unterschiedlichen CALC-Zellen

Äste => Aeste
ähnlich => aehnlich
Öl => Oel
ölig => oelig
Übel => Uebel
über => ueber
Straße => Strasse
Charité => Charite

getestet. Ich hoffe, ich habe Deine Frage so richtig verstanden.

Gruß
Hans-Werner :-))

.... und tschüss

           Franklin



------ Originalnachricht ------
Von: "Franklin Schiftan" <franklin.schiftan@gmx.de>
An: users@de.libreoffice.org
Gesendet: 11.07.2018 06:53:09
Betreff: Re: [de-users] Calc: Umlaute umschreiben ü->ue usw.

Hallo OoOHWHOoO,

am 10.07.2018 um 18:09 Uhr schrieb OoOHWHOoO <OoOHWHOoO@t-online.de>:

Hallo Micha, das Makro

Sub SearchReplace

    Dim oD as Object ' [object] Document
    Dim os as Object ' [object] Sheet
    Dim oRD as Object ' [object] Replace Descriptor
    Dim SS() as String ' [array] Search String
    Dim RS() as String ' [array] Replace String
    Dim iSR as Long ' [index] Search Replace

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

    oD = ThisComponent
    oS = oD.Sheets(0)
    oRD = oS.createReplaceDescriptor
    For iSR=0 To UBound(SS) Step 1
       oRD.SearchCaseSensitive = True
       oRD.SearchString = SS(iSR)
       oRD.ReplaceString = RS(iSR)
       oS.ReplaceAll(oRD)
    Next iSR

End Sub

führt (beispielsweise) folgende Ersetzungen in dem aktuell geöffneten
(fokussierten) CALC-Tabellenblatt für alle Zellen durch:

Äste => Aeste
ähnlich => aehnlich
Öl => Oel
ölig => oelig
Übel => Uebel
über => ueber
Straße => Strasse
Charité => Charite

Für weitere Ersetzungen musst Du nur die Arrays "SS" und "RS" um die
entsprechenden Zeichen/Zeichenketten erweitern.

Werden diese Zeichenketten dann nur in das an gleicher Stelle
stehend Pendant aus RS getauscht?

Gruß
Hans-Werner :-))

.... und tschüss

           Franklin





------ Originalnachricht ------
Von: "Martin Jenniges" <martinjenniges@skynet.be>
An: users@de.libreoffice.org
Gesendet: 10.07.2018 16:46:41
Betreff: Re: [de-users] Calc: Umlaute umschreiben ü->ue usw.

Hallo Micha,

was ist mit dem Befehl "Suchen und Ersetzen" ? Damit geht es doch ?

Eventuell könnte auch Makro helfen

mit freundlichem Gruss
Martin


Am 10.07.2018 um 14:59 schrieb Micha Kuehn:
Hallo,

gibt es für Calc eine Möglichkeit, Umlaute automatisch zu
umschreiben,
also ü durch ue zu ersetzen und auch ß durch ss? Ich will aus Namen
automatisch E-Mail-Adressen basteln.

Danke,
Micha



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



--
..... und tschüss

              Franklin

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