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" <[email protected]>
An: [email protected]
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 <[email protected]>:
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" <[email protected]>
An: [email protected]
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 <[email protected]>:
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" <[email protected]>
An: [email protected]
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:
[email protected]
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: [email protected]
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: [email protected]
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: [email protected]
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
