So ich habe ein neues problem mit der ChrW ausgabe, diese muss es nun sein, da Die unicodezeichen in einer Exceltabelle in ChrW umgewandelt werden müssen und dann soll mit dem ChrW-Code weitergearbeitet werden in VBA...die ganze Umwandlung soll in VBA passieren...
So der ChrW setzt sich ja aus den zeichen ChrW$(&H...HEXADECIMAL...) zusammen...
so um diesen hex auszulesen habe ich folgende Funktion:
Function mstrTranslateToHex(ByVal strSource) As String
Dim lngChar As Long
Dim strChar As String
Dim strRetVal As String
strRetVal = ""
For lngChar = 1 To Len(strSource)
strChar = Hex(AscW(Mid$(strSource, lngChar, 1)))
strRetVal = strRetVal & String$(4 - Len(strChar), "0") & strChar
Next lngChar
mstrTranslateToHex = strRetVal
End Function
der funktionier auch und gibt den HEX aus...
So jetzt zu meinem problem ich habe in einer Zelle ja mehrere zeichen hintereinander dies es uzumwandeln gibt...zeichen für zeichen
Kann mir da jemand beim ablauf helfen der soll so aussehen:
In "F4" steht eine Zeichenkette die zeichen für zeichen umgewandelt werden soll und vor jedes zeichen soll "ChrW$(" dann die umwandlung und dann wieder ")" stehen, wenn alle zeichen in der Celle abgearbeitet sind---->springe in nächste Zeile und führe das gleich wieder aus...usw
Kann mir dabei jemand hlfen?
|