Anzeige
Archiv - Navigation
136to140
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
136to140
136to140
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Umlaute

Umlaute
17.07.2002 13:38:50
Heike
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Umlaute
17.07.2002 14:09:45
Jürgen
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

Anzeige
Re: Umlaute
17.07.2002 14:13:39
Jürgen
Hallo,

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


Gruß Jürgen

Re: Umlaute
17.07.2002 14:21:39
Nike
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

Anzeige
Re: Umlaute
17.07.2002 16:18:25
Heike
Danke Euch allen!
Ich habe es mit Jürgens Makro geschafft! Super!!

Heike

Re: Umlaute
17.07.2002 19:12:22
Jürgen
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



Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige