Excel-Inside Solutions - Umwandeln von Umlauten

Umwandeln von Umlauten

Das folgende Makro wandelt Umlaute wie z. B. ä in ae um.
Fügen Sie dieses Makro einfach in ein Modulblatt ein. Umgewandelt wird der gesamte selektierte Bereich.

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

Und das gleiche geht mir dem folgenden Makro nur eben genau umgekehrt. Umgewandelt wird ae in ä.

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

Neue Beiträge

Meist gelesen

Umwandeln von Umlauten

Artikel mit ähnlichen Themen

» zum Forum...




Maßgeschneiderte Individuallösungen für Ihren Erfolg