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.