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