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

You have no rights to post comments