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.
Gruß
Hans-Werner :-))
------ Originalnachricht ------
Von: "Martin Jenniges" <martinjenni...@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+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
--
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
