Umlaute in Zelle ersetzen

[ExcelUser007]

Hat jemand eine Idee wie ich Umlaute in einer Zelle zu HTML-Code ändern kann?

Beispiel:
Zelle A1 enthält diesen Text:

Code:

Überfahrt von Zürich nach Bötzberg dauert länger als berechnet von René

Alle Umlaute müssen nun durch HTML-Code ersetzt werden. Die Übersetzungstabelle der einzelnen Umlaute kann dann in einem separaten Blatt definiert sein (siehe Attachment)

Gesuchtes Resultat in Zelle A2:

Code:

& Uuml;berfahrt von Z& uuml;rich nach Bötzberg dauert l& auml;nger als berechnet von René

[WillWissen]

Hi,

schau dir mal die Funktion WECHSELN an.

[RPP63]

Moin!
Nun, da gibt es ja noch eine Menge mehr dieser Zeichen-Referenzen:
https://wiki.selfhtml.org/wiki/Referenz:...enreferenz
Erstelle mal eine komplette Tabelle der für Dich relevanten Zeichen und lade sie hier als Excel-Datei hoch.
Dann kann ich Dir ein ein Makro schreiben, welches auf .Replace basiert.

@Günter:
Da dürfte Wechseln() an seine Grenzen gelangen.

Gruß Ralf

[ExcelUser007]

Hab ich auch schon und möchte nun die wenigen fixen Werte durch eine Tabelle ersetzen. Zum einen habe ich gelesen, dass es Limiten gibt wie viele WECHSELN noch funktionieren und zum anderen gibt es noch sehr viele weitere Umlaute welche ich umgeschrieben haben möchte (http://www.ascii.cl/htmlcodes.htm).

Code:

=WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(A1;"é";"é");"ö";"ö");"ü";"& uuml;");"ä";"& auml;");"Ä";"& Auml;");"Ö";"Ö");"Ü";"& Uuml;")

[RPP63]

Na, da war ich mit meinem Beitrag #3 wohl Hellseher!


Gruß Ralf

[WillWissen]

Hi Ralf,

hab' leider deine hellseherische Gabe nicht  gehabt. :05:  Ich bin von den wenigen Zeichen in seinem ScrShot ausgegangen.

[chris-ka]

Hi,

muß es in der Form sein?
Oder reicht nicht auch ein Urlcodieren?

lg
Chris

[RPP63]

Moin!
Meine UDF:

Function TxtToHtml(rng As Range, Referenz) As String
Dim cnt As Long, arrTabelle
TxtToHtml = rng
arrTabelle = Referenz.Value
For cnt = 1 To Ubound(arrTabelle)
   TxtToHtml = Replace(TxtToHtml, arrTabelle(cnt, 1), arrTabelle(cnt, 3))
Next
End Function

ergibt dies:

	A	B
1	Überfahrt von Zürich nach Bötzberg dauert länger als berechnet von René	Überfahrt von Zürich nach Bötzberg dauert länger als berechnet von René

Formeln der Tabelle

Zelle Formel B1 =TxtToHtml(A1;Tabelle1!A2:C257)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Zugrunde liegt eine Tabelle mit 256 Codierungen:

	A	B	C
1	Zeichen	Beschreibung	Name in HTML
2	"	Anführungszeichen oben	"
3	&	Ampersand-Zeichen, kaufmännisches Und	&
4	<	öffnende spitze Klammer	&lt;
5	>	schließende spitze Klammer	&gt;
6	'	Apostroph, einfaches Anführungszeichen oben (nur bei XHTML definiert)	&apos;
7		erzwungenes Leerzeichen	&nbsp;
8	¡	umgekehrtes Ausrufezeichen	&iexcl;
9	¢	Cent-Zeichen	&cent;
10	£	Pfund-Zeichen	&pound;
11	¤	Währungszeichen	&curren;
12	¥	Yen-Zeichen	&yen;
13	¦	durchbrochener Strich	&brvbar;
14	§	Paragraph-Zeichen	&sect;
15	¨	Pünktchen oben (für Umlaut)	&uml;
16	©	Copyright-Zeichen	&copy;
17	ª	Ordinal-Zeichen weiblich	&ordf;
18	«	angewinkelte Anführungszeichen links	&laquo;
19	¬	Verneinungs-Zeichen	&not;
20	­	bedingter Trennstrich	&shy;

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

@Chris:
Ich habs nicht gefunden, schiebst Du es noch rein?

Gruß Ralf

[Wilfried Höttl]

Hallo!

Meinst du es so?

=WECHSELN(WECHSELN(WECHSELN(WECHSELN(A1;"ß";"ss");"ä";"ae");"ö";"oe");"ü";"ue")

Gruß
Wilfried

[ExcelUser007]

Danke RPP63, es funktioniert!