Sub
convert_umlaut()
display1 = WorksheetFunction.Substitute(display1,
"Ä"
,
"["
)
display1 = WorksheetFunction.Substitute(display1,
"Ö"
, "\")
display1 = WorksheetFunction.Substitute(display1,
"Ü"
,
"]"
)
display1 = WorksheetFunction.Substitute(display1,
"ä"
,
"{"
)
display1 = WorksheetFunction.Substitute(display1,
"ö"
,
"|"
)
display1 = WorksheetFunction.Substitute(display1,
"ü"
,
"}"
)
display1 = WorksheetFunction.Substitute(display1,
"ß"
,
"~"
)
End
Sub