Casted ein Unicode zurück in ein Char. ZB. '\u20AC' → '€'
Siehe auch [VBA] Unicode Funktionen.
print_r unicode2char("\u20AC") <String> '€' print_r unicode2char("\u002D") <String> '-' print_r unicode2char("\u0039") <String> '9'
'------------------------------------------------------------------------------- 'File : _cast_unicode2Char.bas ' Copyright mpl by ERB software ' http://wiki.yaslaw.info/dokuwiki/doku.php/vba/cast/unicode2Char 'Environment : VBA 2007 + 'Version : 1.0 'Author : Stefan Erb (ERS) 'History : 29.04.2014 - ERS - Creation '------------------------------------------------------------------------------- Option Explicit '/** ' * Copyright mpl by ERB software | http://wiki.yaslaw.info ' * ' * Wandelt ein Unicode in ein Charakter ' * @example: unicode2char("\u20AC") -> '\€' ' * @param String Unicode ' * @return String Char ' */ Private Function unicode2Char(ByVal iUnicode As String) As String unicode2Char = ChrW(replace(iUnicode, "\u", "&h")) End Function