Habe gerade versucht per Code ein Symbol einzufügen (das Wurzelzeichen). Bekomme als Codezeile
.FormulaR1C1 = "v"
In der Zelle wird aber dann tatsächlich nur ein "v" ausgewiesen? Weiss jemand, wie das geht?
Danke!
Gruss Florian
Sub Wurzel()
[A1] = ChrW(8730)
End Sub
Viele GrüßeSub Wurzel()
Range("A1") = "Die Wurzel sieht so aus: " & ChrW(8730)
End Sub
Um ein Symbol in Excel per Makro einzufügen, befolge diese Schritte:
Öffne den VBA-Editor: Drücke ALT
+ F11
, um den VBA-Editor zu öffnen.
Neues Modul erstellen: Klicke mit der rechten Maustaste auf „VBAProject (DeineDatei.xlsx)“ und wähle „Einfügen“ > „Modul“.
Code einfügen: Kopiere den folgenden VBA-Code in das Modul:
Sub Wurzel()
Range("A1") = "Die Wurzel sieht so aus: " & ChrW(8730)
End Sub
Makro ausführen: Schließe den VBA-Editor und kehre zu Excel zurück. Drücke ALT
+ F8
, wähle „Wurzel“ aus und klicke auf „Ausführen“.
Jetzt erscheint das Wurzelzeichen in Zelle A1.
Fehler: Nur „v“ wird angezeigt: Wenn du nur ein „v“ siehst, hast du möglicherweise die Schriftart nicht auf „Symbol“ gesetzt. Füge diesen Code vor der Zuweisung des Symbols hinzu:
With Range("A1")
.Font.Name = "Symbol"
.Value = ChrW(8730)
End With
Fehler: Zeichen wird nicht angezeigt: Stelle sicher, dass du das richtige Unicode-Zeichen verwendest. Das Wurzelzeichen hat den Code 8730
.
Es gibt verschiedene Möglichkeiten, Symbole in Excel einzufügen:
ALT
gedrückt hältst und auf dem Ziffernblock 8730
tippst (während du ALT
gedrückt hältst).Hier sind einige nützliche Beispiele für das Einfügen von Symbolen:
Durchschnittssymbol einfügen:
Sub DurchschnittSymbol()
Range("B1") = "Durchschnitt: " & ChrW(8721) ' Σ
End Sub
Wurzelzeichen in andere Zellen einfügen:
Sub WurzelInMehrereZellen()
Range("A1:A5").Value = ChrW(8730) ' Wurzelzeichen in A1 bis A5
End Sub
1. Wie kann ich mehrere Symbole in einer Zelle einfügen?
Du kannst mehrere ChrW
-Befehle in einer Zelle kombinieren, z.B.:
Range("A1") = ChrW(8730) & " und " & ChrW(8721)
2. Wie ändere ich die Schriftart für ein ganzes Arbeitsblatt?
Du kannst die Schriftart für alle Zellen in einem Arbeitsblatt ändern, indem du Folgendes verwendest:
Cells.Font.Name = "Symbol"
3. Wo finde ich die Unicode-Codes für andere Symbole?
Eine gute Quelle ist die Unicode-Website oder eine Unicode-Tabelle, die du online finden kannst.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen