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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige