Re: [de-users] Calc: Umlaute umschreiben ü->ue usw.

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