Umlaute



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Umlaute
von: Heike
Geschrieben am: 17.07.2002 - 13:38:50

Hallo,

ich habe eine lange Liste mit Worten. Ich würde gerne die Worte, die Umlaute enthalten zusätzlich mit der internationalen Variante hinzufügen:

also

häuser

wird zusätzlich als

haeuser

ans Ende der Liste gehängt.

Gibt es dafür ein Makro?

Viele Grüsse und vielen Dank,
Heike

nach oben   nach unten

Re: Umlaute
von: Jürgen
Geschrieben am: 17.07.2002 - 14:09:45

Hallo,

vielleicht nicht die eleganteste Möglichkeit, aber funktioniert !
(für Spalte A im Aktiven Tabellenblatt)



Sub Umlaute()
For i% = 1 To Range("A65536").End(xlUp).Row
If InStr(Cells(i, 1).Text, "ä") <> 0 Then Cells(Range("A65536").End(xlUp).Row + 1, 1) = _
WorksheetFunction.Substitute(Cells(i, 1), "ä", "ae")
If InStr(Cells(i, 1).Text, "ö") <> 0 Then Cells(Range("A65536").End(xlUp).Row + 1, 1) = _
WorksheetFunction.Substitute(Cells(i, 1), "ö", "oe")
If InStr(Cells(i, 1).Text, "ü") <> 0 Then Cells(Range("A65536").End(xlUp).Row + 1, 1) = _
WorksheetFunction.Substitute(Cells(i, 1), "ü", "ue")
If InStr(Cells(i, 1).Text, "Ä") <> 0 Then Cells(Range("A65536").End(xlUp).Row + 1, 1) = _
WorksheetFunction.Substitute(Cells(i, 1), "Ä", "Ae")
If InStr(Cells(i, 1).Text, "Ö") <> 0 Then Cells(Range("A65536").End(xlUp).Row + 1, 1) = _
WorksheetFunction.Substitute(Cells(i, 1), "Ö", "Oe")
If InStr(Cells(i, 1).Text, "Ü") <> 0 Then Cells(Range("A65536").End(xlUp).Row + 1, 1) = _
WorksheetFunction.Substitute(Cells(i, 1), "Ü", "Ue")
Next
End Sub

Gruß Jürgen


nach oben   nach unten

Re: Umlaute
von: Jürgen
Geschrieben am: 17.07.2002 - 14:13:39

Hallo,

vielleicht nicht die eleganteste Möglichkeit, aber funktioniert !
(für Spalte A im Aktiven Tabellenblatt)


Sub Umlaute()
For i% = 1 To Range("A65536").End(xlUp).Row
 If InStr(Cells(i, 1).Text, "ä") <> 0 Then Cells(Range("A65536").End(xlUp).Row + 1, 1) = _
    WorksheetFunction.Substitute(Cells(i, 1), "ä", "ae")
 If InStr(Cells(i, 1).Text, "ö") <> 0 Then Cells(Range("A65536").End(xlUp).Row + 1, 1) = _
    WorksheetFunction.Substitute(Cells(i, 1), "ö", "oe")
 If InStr(Cells(i, 1).Text, "ü") <> 0 Then Cells(Range("A65536").End(xlUp).Row + 1, 1) = _
    WorksheetFunction.Substitute(Cells(i, 1), "ü", "ue")
 If InStr(Cells(i, 1).Text, "Ä") <> 0 Then Cells(Range("A65536").End(xlUp).Row + 1, 1) = _
    WorksheetFunction.Substitute(Cells(i, 1), "Ä", "Ae")
 If InStr(Cells(i, 1).Text, "Ö") <> 0 Then Cells(Range("A65536").End(xlUp).Row + 1, 1) = _
    WorksheetFunction.Substitute(Cells(i, 1), "Ö", "Oe")
 If InStr(Cells(i, 1).Text, "Ü") <> 0 Then Cells(Range("A65536").End(xlUp).Row + 1, 1) = _
    WorksheetFunction.Substitute(Cells(i, 1), "Ü", "Ue")
Next
End Sub


Gruß Jürgen


nach oben   nach unten

Re: Umlaute
von: Nike
Geschrieben am: 17.07.2002 - 14:21:39

Hi,
das geht auch ohne Makro...
also, kopiere die Liste in ein neues Blatt,
dann suche und ersetze die Umlaute (mit Strg und H)
Kopiere dann die Liste wieder zurück unter die
ursprüngliche Liste, dann über das Menü
Daten/Filter/Spezialfilter
die Liste ohne Dublikate(Häckchen links unten)
in eine neue Spalte kopieren lassen
Original Spalte löschen und kopierte Spalte
rüberschieben fertig...

und alles ohne Makros ;-)

Bye

Nike


nach oben   nach unten

Re: Umlaute
von: Heike
Geschrieben am: 17.07.2002 - 16:18:25

Danke Euch allen!
Ich habe es mit Jürgens Makro geschafft! Super!!

Heike


nach oben   nach unten

Re: Umlaute
von: Jürgen
Geschrieben am: 17.07.2002 - 19:12:22

fürs Archiv hier ein wirklich funktionierender Code:

bei dem vorigen Code gibt es Probleme sobald mehr als nur ein Umlaut im selben Wort vorhanden ist, ausserdem ist das 'ß' nicht in 'ss' umgewandelt worden



Sub Umlaute()
For i% = 1 To Range("A65536").End(xlUp).Row
 If InStr(Cells(i, 1).text, "ß") > 0 Or _
    InStr(Cells(i, 1).text, "ä") > 0 Or InStr(Cells(i, 1).text, "Ä") > 0 Or _
    InStr(Cells(i, 1).text, "ö") > 0 Or InStr(Cells(i, 1).text, "Ö") > 0 Or _
    InStr(Cells(i, 1).text, "ü") > 0 Or InStr(Cells(i, 1).text, "Ü") > 0 Then _
    Cells(Range("A65536").End(xlUp).Row + 1, 1) = WorksheetFunction.Substitute _
    (WorksheetFunction.Substitute(WorksheetFunction.Substitute _
    (WorksheetFunction.Substitute(WorksheetFunction.Substitute _
    (WorksheetFunction.Substitute(WorksheetFunction.Substitute _
    (Cells(i, 1), "ß", "ss"), "ä", "ae"), "Ä", "Ae"), "ö", "oe"), "Ö", "Oe"), "ü", "ue"), "Ü", "Ue")
Next
End Sub

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Umlaute"