Jörg Lorenz schrieb am 06.February.2010, 12:24:01 in der Kategorie user.telecom
Sub Zeichen()
MsgBox AscW(Range(\"A1\"))
End Sub
wird der Dezimalwert angezeigt.
Damit kann man sich eine \"kleine\" Übersicht der Zeichen erstellen:
Sub Zeichen()
Dim lngZ As Long
For lngZ = 1 To 65535
Cells(lngZ, 1) = lngZ: Cells(lngZ, 2) = ChrW(lngZ)
Next
End Sub
Klar, man kann sich auch im Internet auf die Suche danach begeben.