Excel Themen
Add-Ins
Forum
Excel-Links

Unsere Excel-CD
TippDerWoche Archiv
Impressum
Statistik

Umlaute in Selbstlaute umwandeln (Tipp_51) - 27.01.2008

Sie haben einen großen Zellbereich mit Text und müssen die Umlaute in Selbstlaute umwandeln.
Dieses Makro übernimmt das für Sie. Im Beispiel betrifft es den Zellbereich A1 bis D100.

Sub Umlaute()
Range("A1:D100").Select
With Selection
.Replace What:="Ö", Replacement:="Oe", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
.Replace What:="Ä", Replacement:="Ae", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
.Replace What:="Ü", Replacement:="Ue", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
.Replace What:="ö", Replacement:="oe", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
.Replace What:="ä", Replacement:="ae", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
.Replace What:="ü", Replacement:="ue", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
End With
Range("A1").Select
End Sub