Supportnet / Forum / Tabellenkalkulation

hat jemand eine idee wie man ö ä ü in einer spalte von namen in oe ae ue ersetzen kann (nicht die suchen & ersetzen -funktion) eine möglichkeit die funktioniert =WECHSELN(A5;"ä";"ae"), damit erschlägt man allerdings nur einen Umlaut... wie bekomme ich die anderen noch abgedeckt ??? Danke vorab...

hi.
dein lösungsansatz ist gut, den rest bekommst du mit der bedingung UND hin, in dem du deine formel mit UND(lösung1;lösung2;lösung3) schreibst.
die lösung 2 betrifft dann "ö" und lösung 3 demzufolge "ü".

ulli

@ulli

bekomme Deinen Losöungsvorschlag nicht hin.
Die Bedingung UND im Zusammenhang mit der Funktion WECHSELN scheint nicht zu klappen.

Wenn Du eine Lösung haben solltest bitte melden!

@bo

habe als Vorschlag nur eine "Krücke" mit 3 Hilfsspalten!

A1 = Dein umzusetzendes Wort
B1 = =WECHSELN(A1;"ä";"ae")
C1 = =WECHSELN(A5;"ö";"oe")
D1 = =WECHSELN(A5;"ü";"ue")

Spalten B und C ausblenden !!!

Die VB/Makro-Freaks haben vielleicht noch eine bessere Lösung!

VB/Makro ist aber nicht mein Ding!

gruss
pelle

Ps. Vielleicht hätte SICCI eine Lösung!
Vielleicht entdeckt sie die Anfrage!

Hallo Bo !
pelle legt ja die Meßlatte ziemlich hoch. So gut wie sicci bin ich sicher nicht, aber vielleicht reicht ja folgendes auch :
-----------------
Sub Makro1()
Dim r As Variant
Dim c As Variant
Dim i1 As Integer
Dim xfeld1 As String
Dim xfeld2 As String
Set r = Selection.Cells
For c = 1 To r.Cells.Count
xfeld1 = r(c).Value
xfeld2 = ""
For i1 = 1 To Len(xfeld1)
If Mid(xfeld1, i1, 1) = "ä" Then
xfeld2 = xfeld2 & "a"
xfeld2 = xfeld2 & "e"
ElseIf Mid(xfeld1, i1, 1) = "ö" Then
xfeld2 = xfeld2 & "o"
xfeld2 = xfeld2 & "e"
ElseIf Mid(xfeld1, i1, 1) = "ü" Then
xfeld2 = xfeld2 & "u"
xfeld2 = xfeld2 & "e"
ElseIf Mid(xfeld1, i1, 1) = "Ä" Then
xfeld2 = xfeld2 & "A"
xfeld2 = xfeld2 & "e"
ElseIf Mid(xfeld1, i1, 1) = "Ö" Then
xfeld2 = xfeld2 & "O"
xfeld2 = xfeld2 & "e"
ElseIf Mid(xfeld1, i1, 1) = "Ü" Then
xfeld2 = xfeld2 & "U"
xfeld2 = xfeld2 & "e"
ElseIf Mid(xfeld1, i1, 1) = "ß" Then
xfeld2 = xfeld2 & "s"
xfeld2 = xfeld2 & "s"
Else
xfeld2 = xfeld2 & Mid(xfeld1, i1, 1)
End If
Next i1
r(c).Value = xfeld2
Next c

End Sub
-------------------
Dieses Makro wandelt markierte Zellen um.
Gruß
Teddy

Hi,

Teddy hat ja schon ein schönes Makro geschrieben.
Der Vollständigkeit halber will ich hier noch die korrekte WECHSELN-Formel angeben (für ÄäÖöÜüß):

=WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(A1;"ü";"ue");"ö";"oe");"ä";"ae");"Ü";"Ue");"Ö";"Oe");"Ä";"Ae");"ß";"ss")

Naja - wem lange Formeln gefallen ;-)

[gau]

Wow, vielen Dank erstmal,
ich werde die sachen ausprobieren,
der Lange-Formel-Tip funktioniert jedenfalls...
Danke [Gau]

Gruss
Bo

@Teddy

Sicci sollte keine Meßlatte sein!
(Ihr Wissen hätte ich auch schon gern)

Sie hat mir schon mal bei Problemen geholfen!
Der Hinweis sollte nur bedeuten, ich glaub sie hätte eine Lösung.

Ich wollte die Fähigkeit von Dir und den anderen Helfern auf gar keinen Fall
in Frage stellen!!!!!!!!!!

Ok?

@[gau]

Lange Formeln sind gut, wenn sie das Problem lösen.

Also ist Deine Formel gut!
(Ich Trollo habe naürlich die Großbuchstaben vergessen)

gruss
pelle

Hallo pelle !
Kein Problem !
Ich wollte nur dezent darauf hinweisen, daß Du möglicherweise andere Helfer abschreckst, wenn Du sicci direkt ansprichst (mich nicht - ich habe ein dickes Fell).
Das mit dem "dezent" hat wohl nicht so ganz geklappt. Tut mir leid, wenn ich zu heftig war. War wirklich nicht so gemeint.
Was ich bis jetzt von sicci gesehen habe war wirklich gut und ich arbeite daran, genau so gut zu werden. Deshalb habe ich das mit der Meßlatte auch durchaus ernst gemeint.
So genug geschleimt ! ;-))
Also : Alles in Ordnung - ich hoffe auch bei Dir.
CU
Teddy

• Formel ziehen
• Wenn ich ä,ö,ü tippe soll ae, oe, ue geschriben werden. Am Besten einfach abschaltbar
• Excel: Formel wird nicht berechnet sondern als Formel angezeigt
• Umlaute in MySQL anpassen