This is an old revision of the document!
Casted ein Charakter in ein Unicode. ZB. '€' → '\u20AC'
'------------------------------------------------------------------------------- 'File : _cast_char2Unicode.bas ' Copyright mpl by ERB software ' http://wiki.yaslaw.info/dokuwiki/doku.php/vba/cast/char2Unicode '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 Charakter in ein Unicode ' * @example: char2unicode("€") -> '\u20AC' ' * @param String(1) Charakter, der gewandelt werden soll ' * @return String Unicode ' */ Private Function char2Unicode(ByVal iChar As String) As String char2Unicode = Hex(AscW(iChar)) 'Hex-Wert ermitteln char2Unicode = "\u" & String(4 - Len(char2Unicode), "0") & char2Unicode End Function