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
