====== [VBA] unicode2char() ====== Casted ein Unicode zurück in ein Char. ZB. '\u20AC' -> '€' >Siehe auch [[vba:unicode]]. ===== Beispiele ===== print_r unicode2char("\u20AC") '€' print_r unicode2char("\u002D") '-' print_r unicode2char("\u0039") '9' ===== Code ===== '------------------------------------------------------------------------------- '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