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

2018-07-13 Diskussionsfäden OoOHWHOoO 

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.

2018-07-12 Diskussionsfäden Wolfgang Jäth 
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.

2018-07-12 Diskussionsfäden Alois Klotz 

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.

2018-07-12 Diskussionsfäden 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. 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.

2018-07-10 Diskussionsfäden OoOHWHOoO 

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.

2018-07-10 Diskussionsfäden Franklin Schiftan 
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.

2018-07-10 Diskussionsfäden OoOHWHOoO 

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.

2018-07-10 Diskussionsfäden Franklin Schiftan 
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.

2018-07-10 Diskussionsfäden 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.


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.

2018-07-10 Diskussionsfäden Martin Jenniges 

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.

2018-07-10 Diskussionsfäden 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
-- 
Ü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

2018-06-04 Diskussionsfäden Wolfgang Jäth 
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

2018-06-03 Diskussionsfäden Martin Jenniges 

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

2018-06-03 Diskussionsfäden 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
-- 
Ü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