Nutzen Sie unser 
Das folgende Makro wandelt Umlaute wie z. B. ä in ae um.
Fügen Sie dieses Makro einfach in ein Modulblatt ein. Umgewandelt werden alle Zellen mit Umlauten im ausgewählten Zellbereich. Also einfach die gewünschten Zellen markieren und das Makro starten.
Sub umwandel_ä_in_ae() 'Wandelt ä in ae um 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 End Sub
Das folgende Makro funktioniert genau umgekehrt. Es wandelt beispielsweise ae wieder zurück in den Umlaut ä.
Sub umwandeln_ae_in_ä() 'Wandelt ae in a um With Selection .Replace What:="Oe", Replacement:="Ö", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=True .Replace What:="Ae", Replacement:="Ä", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=True .Replace What:="Ue", Replacement:="Ü", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=True .Replace What:="oe", Replacement:="ö", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=True .Replace What:="ae", Replacement:="ä", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=True .Replace What:="ue", Replacement:="ü", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=True End With End Sub
Der Code wandelt sowohl Klein- als auch Großbuchstaben entsprechend um.
