VBA Makro Excel: Wie man ein Unicode-Zeichen aus Excel-Zelle

Question

Ich habe Schwierigkeiten, ein Unicode-Zeichen aus einer Zelle in VBA Excel zu lesen.

Sub mySub() 
    Cells(1, "A").Value = ChrW(10003) ' Writes checkbox symbol to A1 

    MsgBox Asc(Cells(1, "A").Value)  ' Output: 63 (questionmark symbol) 
             ' Expected Output: 10003 
End Sub 

Ich muss das Unicode-Zeichen lesen, um zu sehen, ob das Kontrollkästchen-Symbol von einem Benutzer geändert wurde. Ich habe keine Idee, wie man ein Unicode-Zeichen mit dem Zellenwert vergleicht.

Answer 1

Manchmal ist alles, was Sie brauchen, ein zweites Augenpaar. :)

Sub mySub() 
    Cells(1, "A").Value = ChrW(10004) ' Writes checkbox symbol to A1 

    'MsgBox Asc(Cells(1, "A").Value)  ' Output: 63 (questionmark symbol) 
            ' Expected Output: 10003 
    '/ Works! 
    MsgBox AscW(Cells(1, "A").Value2) 'Almost there. Use AscW instead of Asc 
End Sub