Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Symbole einfügen per Makro?

Symbole einfügen per Makro?
Florian
Hallo Excelfreunde!
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
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Symbole einfügen per Makro?
13.07.2009 14:28:50
Rudi
Hallo,
die Schriftart musst du auch setzen.
zusätzlich:
.Font.Name="Symbol"
Gruß
Rudi
Nein Rudi, es geht einfacher
13.07.2009 14:30:38
Martin

Sub Wurzel()
[A1] = ChrW(8730)
End Sub
Viele Grüße
Martin
AW: Symbole einfügen per Makro?
13.07.2009 14:31:57
Ptonka
Hallo,
Du solltest auch die Schriftart in der Zelle auf "Symbol" umstellen.
Gruß,
Ptonka
Anzeige
AW: Symbole einfügen per Makro?
13.07.2009 14:36:53
Martin
Es wäre ja aufwendig für jedes Zeichen die Schriftart zu ändern. Die Sonderzeichen müssen nur als Dezimalwert mit ChrW angegeben werden:
Sub Wurzel()
Range("A1") = "Die Wurzel sieht so aus: " & ChrW(8730)
End Sub

Danke an alle oT ;)
13.07.2009 15:11:01
Florian
--
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Symbole in Excel einfügen per Makro


Schritt-für-Schritt-Anleitung

Um ein Symbol in Excel per Makro einzufügen, befolge diese Schritte:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Neues Modul erstellen: Klicke mit der rechten Maustaste auf „VBAProject (DeineDatei.xlsx)“ und wähle „Einfügen“ > „Modul“.

  3. Code einfügen: Kopiere den folgenden VBA-Code in das Modul:

    Sub Wurzel()
       Range("A1") = "Die Wurzel sieht so aus: " & ChrW(8730)
    End Sub
  4. 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.


Häufige Fehler und Lösungen

  • 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.


Alternative Methoden

Es gibt verschiedene Möglichkeiten, Symbole in Excel einzufügen:

  1. Direktes Einfügen: Du kannst das Wurzelzeichen auch direkt in eine Zelle eingeben, indem du ALT gedrückt hältst und auf dem Ziffernblock 8730 tippst (während du ALT gedrückt hältst).
  2. Zeichen einfügen: Gehe zu „Einfügen“ > „Symbol“ und wähle das gewünschte Symbol aus der Liste.

Praktische Beispiele

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

Tipps für Profis

  • VBA ChrW Tabelle: Nutze eine Tabelle der Unicode-Zeichen, um schnell die Codes für andere Symbole zu finden.
  • Schriftarten: Experimentiere mit verschiedenen Schriftarten, um zu sehen, welche Symbole am besten angezeigt werden.
  • Sonderzeichen: Du kannst auch andere Sonderzeichen wie das Durchschnittsymbol oder Wurzelzeichen in deine VBA-Skripte einfügen.

FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige