Zeichen aus Zeichentabelle in Code aufnehmen

Question

Hallo,

ich habe eine Befehlszeile mit der ich in einer Zelle einen string ausgeben will..
cells(1,1)= "......."
Ein Zeichen in diesem string soll allerdings aus der Zeichentabelle das Zeichen "0x53" also das griechische Summenzeichen sein. Wenn ich das einfach aus der Zeichentabelle kopiere und in den string aufnehme, erscheint aber nur "S". Weiß jemand wie das geht?
Danke und Gruß
Andreas

Answer 1

Hallo Andreas,

hilft das?

With Cells(1, 1)
.Value = "S"
.Font.Name = "Symbol"
End With

Gruß
Rainer

Answer 2

Hallo Rainer,

danke für deine Antwort. Das Problem ist dabei nur, dass innerhalb des string nur für das "S" die Schriftart Symbol angewendet werden soll...
Gruß Andreas

Answer 3

Hallo Andreas,

ich vermute, das geht nicht.
Jedenfalls fällt mir dazu nichts ein.

Gruß
Rainer

Answer 4

Hallo Rainer,
trotzdem danke. Wenn du das schon sagst, dann gibt es sicher wirklich keine Lösung. Schade nur, weil es ja direkt im Excel geht. Da kann ich ja innerhalb eines srting mit verschiedenen Schriftarten hantieren.
Schönen Abend und viele Grüße
Andreas

Answer 5

hi all ^^

ein Beispiel

gruss nighty

ActiveCell.Characters(Start:=InStr(1, ActiveCell, "X"), Length:=1).Font.Name = "Arial Black"

Answer 6

Hallo,

jaaaa, das ist ist die Lösung, die ich gesucht habe!!!! Nur noch ein kleines Problem... Dein Beispiel ändert den Schrifttyp des 1. Zeichens. Wie sieht der Code aus, wenn ich den Typ des 7. Zeichens ändern möchte?
Danke dir!!
VG Andreas

Answer 7

Hallo nighty,

ich habe die Lösung gefunden...(muss ja nur nach dem Zeichen suchen, ab dem ich ändern will)alles Bestens! Vielen Dank für die tolle Lösung!!!
Guten Abend!
Andreas

Answer 8

hi all ^^

ActiveCell.Characters(Start:=7, Length:=1).Font.Name = "Arial Black"

gruss nighty