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

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