'/** ' * Copyright mpl by ERB software | http://wiki.yaslaw.info ' * ' * Ersetzt alle Umlaute durch Xe ' * Idee by http://www.office-loesung.de/ftopic142553_0_0_asc.php ' * @param String Text in dem die Umlaute ersetzt werden soll ' * @param Boolean Flag ob bei Grossbuchstaben der Ersatzwert vollständig in Grossbuchstaben geandelt werden soll. Default: false ' * False: Ä -> Ae True: Ä -> AE ' * @return String ' */ Public Function replaceUmlaute(ByVal iSubject As String, Optional ByVal iCaseSave As Boolean = False) As String replaceUmlaute = iSubject replaceUmlaute = replace(replaceUmlaute, "Ä", IIf(iCaseSave, "AE", "Ae"), 1, -1, vbBinaryCompare) replaceUmlaute = replace(replaceUmlaute, "Ü", IIf(iCaseSave, "UE", "Ue"), 1, -1, vbBinaryCompare) replaceUmlaute = replace(replaceUmlaute, "Ö", IIf(iCaseSave, "OE", "Oe"), 1, -1, vbBinaryCompare) replaceUmlaute = replace(replaceUmlaute, "ä", "ae", 1, -1, vbBinaryCompare) replaceUmlaute = replace(replaceUmlaute, "ü", "ue", 1, -1, vbBinaryCompare) replaceUmlaute = replace(replaceUmlaute, "ö", "oe", 1, -1, vbBinaryCompare) replaceUmlaute = replace(replaceUmlaute, "ß", "ss", 1, -1, vbBinaryCompare) End Function