|
Ja, vielen Dank Gast35056, ASCII-Code, da ist was dran. Habe jetzt ein Jarlech 8034 - Kundendisplay bekommen. Das hat im Gegensatz zum 8003 einen Dip-switch. Man kann auf deutschen Zeichensatz umstellen. Dann aber sind unverständlicherweise ö-ß ASCII 123 bis 126. (großes Ü ist 93) Muß also meinen Ausgabestring konvertieren:
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
Funktioniert super. Endlich "Frühstück" statt "Fruehstueck" oder "Süßes" statt Suesses" auf dem Display!
|