Re: [de-users] Calc: Umlaute umschreiben ü->ue usw.
Hallo Wolfgang & Micha, so isses, wenn man die Funktion Zellen-orientiert umschreibt :-)) ... [1] "text" wird (direkt) als Zeichenkette übergeben: "A1": =SearchReplace("?Ä?ä?Ö?ö?Ü?ü?ß?é") ergibt in "A1": ?Ae?ae?Oe?oe?Ue?ue?ss?e? [2] "text" wird (indirekt) als Zelleninhalt übergeben: "A1": ?Ä?ä?Ö?ö?Ü?ü?ß?é und "A2": =SearchReplace(A1) ergibt in "A2": ?Ae?ae?Oe?oe?Ue?ue?ss?e? Siehe hierzu: https://help.libreoffice.org/Calc/User-Defined_Functions/de Gruß Hans-Werner :-)) -- Originalnachricht -- Von: "Wolfgang Jäth" An: users@de.libreoffice.org Gesendet: 13.07.2018 06:50:54 Betreff: Re: [de-users] Calc: Umlaute umschreiben ü->ue usw. Am 12.07.2018 um 20:59 schrieb Micha Kuehn: OoOHWHOoO schrieb: Hallo Micha, das Makro führt (beispielsweise) folgende Ersetzungen in dem aktuell geöffneten (fokussierten) CALC-Tabellenblatt für alle Zellen durch: Lieber OoOHWHOoO/Hans-Werner, danke für deine Mühen. Das ist nicht ganz, was ich suchte. Ich wollte die Ersetzung in bestimmten Zellen mit Hilfe einer Formel haben. Aber ein guter Ausgangspunkt ist die Funktion schon; man muss sie nur einen bisschen [tm] umschreiben: Function SearchReplace (text As String) Dim iSR as Long ' [index] Search Replace Dim SS() as String ' [array] Search String Dim RS() as String ' [array] Replace String SS = Array("Ä" ,"ä" ,"Ö" ,"ö" ,"Ü" ,"ü" ,"ß" ,"é") RS = Array("Ae","ae","Oe","oe","Ue","ue","ss","e") For iSR=0 To UBound(SS) Step 1 text = Replace (text, SS(iSR), RS(iSR)) Next iSR SearchReplace = text End Function Wolfgang -- Dank Donald Trump ist mir endgültig klar geworden: Es ist nicht der Turm von Pisa, der schief steht, es ist die Welt! -- 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
Re: [de-users] Calc: Umlaute umschreiben ü->ue usw.
Am 12.07.2018 um 20:59 schrieb Micha Kuehn: > OoOHWHOoO schrieb: > >> Hallo Micha, das Makro >> führt (beispielsweise) folgende Ersetzungen in dem aktuell geöffneten >> (fokussierten) CALC-Tabellenblatt für alle Zellen durch: > > Lieber OoOHWHOoO/Hans-Werner, > > danke für deine Mühen. Das ist nicht ganz, was ich suchte. Ich wollte > die Ersetzung in bestimmten Zellen mit Hilfe einer Formel haben. Aber ein guter Ausgangspunkt ist die Funktion schon; man muss sie nur einen bisschen [tm] umschreiben: Function SearchReplace (text As String) Dim iSR as Long ' [index] Search Replace Dim SS() as String ' [array] Search String Dim RS() as String ' [array] Replace String SS = Array("Ä" ,"ä" ,"Ö" ,"ö" ,"Ü" ,"ü" ,"ß" ,"é") RS = Array("Ae","ae","Oe","oe","Ue","ue","ss","e") For iSR=0 To UBound(SS) Step 1 text = Replace (text, SS(iSR), RS(iSR)) Next iSR SearchReplace = text End Function Wolfgang -- Dank Donald Trump ist mir endgültig klar geworden: Es ist nicht der Turm von Pisa, der schief steht, es ist die Welt! -- 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
Re: [de-users] Calc: Umlaute umschreiben ü->ue usw.
Micha Kuehn schrieb am 12.07.2018 um 20:59: OoOHWHOoO schrieb: Hallo Micha, das Makro führt (beispielsweise) folgende Ersetzungen in dem aktuell geöffneten (fokussierten) CALC-Tabellenblatt für alle Zellen durch: Lieber OoOHWHOoO/Hans-Werner, danke für deine Mühen. Das ist nicht ganz, was ich suchte. Ich wollte die Ersetzung in bestimmten Zellen mit Hilfe einer Formel haben. Habe jetzt noch die Methode mit den geschachtelten wechseln(...)-Befehlen verwendet, wenn sie auch wenig elegant ist. Micha Hallo Micha, ich hab mir das jetzt mal angesehen und diese Lösung gefunden: https://www.dropbox.com/s/ra7qh0jug5nyy18/Umlaute%20tauschen.ods?dl=0 So wie ich das sehe, unterscheidet sverweis nicht Gross- und Kleinbuchstaben - ich habe also alles klein gemacht. Auf dem 2. Tabellenblatt findet man die Ersetzungstabelle, die beliebig erweitert werden kann - einfach die letzte Zeile nach unten schieben und dazwischen die Werte einfügen. Für längere Namen als 25 Buchstaben lässt sich das einfach erweitern. MfG Alois -- www.easy4me.info -- 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
Re: [de-users] Calc: Umlaute umschreiben ü->ue usw.
OoOHWHOoO schrieb: > Hallo Micha, das Makro > führt (beispielsweise) folgende Ersetzungen in dem aktuell geöffneten > (fokussierten) CALC-Tabellenblatt für alle Zellen durch: Lieber OoOHWHOoO/Hans-Werner, danke für deine Mühen. Das ist nicht ganz, was ich suchte. Ich wollte die Ersetzung in bestimmten Zellen mit Hilfe einer Formel haben. Habe jetzt noch die Methode mit den geschachtelten wechseln(...)-Befehlen verwendet, wenn sie auch wenig elegant ist. Micha -- Überlegen: Wer denken kann, ist klar im Vorteil. (Der Postillon) -- 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
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" 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 : 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" 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 : 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" 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 -- . und tschüss Franklin -- 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
Re: [de-users] Calc: Umlaute umschreiben ü->ue usw.
Hallo OoOHWHOoO, am 11.07.2018 um 07:24 Uhr schrieb OoOHWHOoO : > 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" > 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 : >> >>>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" >>>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 > > -- . und tschüss Franklin -- 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
Re: [de-users] Calc: Umlaute umschreiben ü->ue usw.
Hallo Franklin, ja, so ist es. Alle "Ä"s werden durch "Ae", alle "ä"s durch "ae", alle "Ö"s durch "Oe" und so weiter ersetzt. 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 :-)) -- Originalnachricht -- Von: "Franklin Schiftan" 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 : 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" 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 -- 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
Re: [de-users] Calc: Umlaute umschreiben ü->ue usw.
Hallo OoOHWHOoO, am 10.07.2018 um 18:09 Uhr schrieb OoOHWHOoO : > 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" > 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
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" 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
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
[de-users] Calc: Umlaute umschreiben ü->ue usw.
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 -- Überlegen: Wer denken kann, ist klar im Vorteil. (Der Postillon) -- 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
Re: [de-users] Calc: Umlaute umschreiben
Am 03.06.2018 um 22:17 schrieb Micha Kuehn: > Hallo, > > ich möchte aus Namen automatisiert E-Mail-Adressen basteln. Dabei sollen > Umlaute und möglichst alle fremdsprachlichen Sonderzeichen, auch > Akzente, umgeschrieben bzw. weggelassen werden. > > Aus ö soll oe werden, aus ß ein ss, aus é ein e usw. > > Gibt es dafür eine fertige Calc-Funktion? Wie macht man sowas? Googel nach "calc umlaute ersetzen makro" o. ä., da gips diverse Lösungsansätze. Wolfgang -- Dank Donald Trump ist mir endgültig klar geworden: Es ist nicht der Turm von Pisa, der in Schieflage geraten ist, es ist die Welt. -- 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
Re: [de-users] Calc: Umlaute umschreiben
Hallo Micha, ob und wie es in Calc geht, weiss ich leider nicht; aber für Writer gibt es das Add-On "Alternatives Suchen und Ersetzen". Da drin ist ein Batch-Modus, mit der man mehrere Suchen/Ersetzen-Aufträge auf ein Mal erledigen kann. Du müsstest die Calc-Datei in eine csv abspeichern, in Writer öffnen, die inhalte per Alternatives Suchen und Ersetzen bearbeiten, wieder als csv speichern und zuletzt in Calc öffnen. mit freundlichem Gruss Martin Am 03.06.2018 um 22:17 schrieb Micha Kuehn: Hallo, ich möchte aus Namen automatisiert E-Mail-Adressen basteln. Dabei sollen Umlaute und möglichst alle fremdsprachlichen Sonderzeichen, auch Akzente, umgeschrieben bzw. weggelassen werden. Aus ö soll oe werden, aus ß ein ss, aus é ein e usw. Gibt es dafür eine fertige Calc-Funktion? Wie macht man sowas? 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
[de-users] Calc: Umlaute umschreiben
Hallo, ich möchte aus Namen automatisiert E-Mail-Adressen basteln. Dabei sollen Umlaute und möglichst alle fremdsprachlichen Sonderzeichen, auch Akzente, umgeschrieben bzw. weggelassen werden. Aus ö soll oe werden, aus ß ein ss, aus é ein e usw. Gibt es dafür eine fertige Calc-Funktion? Wie macht man sowas? Danke, Micha -- Überlegen: Wer denken kann, ist klar im Vorteil. (Der Postillon) -- 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