VBA-Befehl: Zeichen in Schriftart nicht vorhanden
Alex
leider ist der Betreff nicht sehr aussagekräftig, da ich für die Frage etwas weiter ausholen muss. Man möge mir verzeihen.
Lage: Ich will mir für eine Schriftart Code Charts analog denen auf unicode.org erstellen (Beispiel: http://www.unicode.org/charts/PDF/U30A0.pdf ). Dazu habe ich nachfolgendes Makro geschrieben, das das auch ganz schön macht. Das Makro ist hier etwas abgespeckt dargestellt und wirft beispielhaft nur den Bereich 4E00 bis 4E3F aus.
Problem: Die Schriftart GuYin hat nicht für alle Unicode-Werte auch ein Zeichen. So fehlen z.B. 4E02, 4E04 bis 4E06, ..., wohingegen 4E00, 4E01, 4E03, ... mit einem Zeichen belegt sind.
Ulkiger Effekt: Excel zeigt mir bei den fehlenden Zeichen nicht wie erwartet das übliche "Kenn-ich-nicht"-Quadrat an, sondern nimmt das entsprechende Zeichen aus der MS PMincho (behauptet aber im Formatierungsbeich, dass es GuYin wäre).
Gewünschter Effekt: Wenn das Zeichen in der Schriftart nicht existiert, soll in der entsprechenden Zelle ein "n/a" stehen.
Wo muss ich da im Makro ansetzen und (noch viel wichtiger) mit welchem Befehl?
Danke und viele Grüße
Alex
------------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim rngRange As Range
Dim intI, intJ As Integer
Dim strBase, strI, strJ As String
Set rngRange = Sheets("Tabelle2").Range("$A$1:$P$4")
strBase = "4E"
For intI = 0 To 15
For intJ = 0 To 3
rngRange.Cells(1, 1).Activate
ActiveCell.Offset(intJ, intI).Select
If intI