Erkennung von nichtdruckbaren Unicodezeichen
29.11.2005 13:43:21
nichtdruckbaren
Unicode hat 65536 mögliche Zeichen. Nicht alle sind vergeben/definiert und auch Excel kann wohl einige davon nicht darstellen. Es erscheint dann ein Quadrat als Platzhalter.
Wie kann ich nun per Makro ermitteln ob sich in der Zelle ein sichtbares Zeichen oder nur das Platzhalterquadrat steht?
Nachfolgend ein Code der mir Spalte A mit den Zeichen füllt.
AscW hilft leider nicht weiter:-(
Gruß
Reinhard
Sub tt()
Application.ScreenUpdating = False
For n = 128 To 65535
Cells(n, 1) = ChrW(n)
Next n
Application.ScreenUpdating = True
End Sub