Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.10.2025 14:37:20
Ampel in Excel macht nicht das was sie soll
23.10.2025 12:48:01
Alle Tabellenblätter mehrerer Dateien in einer Datei
23.10.2025 11:26:24
Drucker auslesen unter Office 2024
23.10.2025 10:01:30
Benannte Bereiche durchsuchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1736to1740
1736to1740
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlenformat per Makro inkl. Summenzeichen

Forumthread: Zahlenformat per Makro inkl. Summenzeichen

Zahlenformat per Makro inkl. Summenzeichen
30.01.2020 11:26:42
Paul
Hallo,
ich möchte das Zahlenformat einer Zelle per Makro so formatieren, dass bei Eingabe einer Zahl folgendes in der Zelle erscheint: Σ= 10 Stück
Für die normale benutzerdefinierte Zahlenformatierung sähe das so aus: "Σ= "Standard" m"
Das Problem beim Makro ist, dass dieses Summenzeichen so nicht dargestellt werden kann.
Als Einzelschritte sind mir bisher nur bekannt:
Summenzeichen per Makro in Zelle eintragen:
With Selection
.Font.Name = "Arial Unicode MS"
.Value = ChrW(425)
End With
Zahlenformat per Makro anpassen:
Selection.NumberFormat = """S= ""General"" Stück"""
Wobei eben hier das S durch das Σ ersetzt werden soll.
WIe kann das gelöst werden?
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahlenformat per Makro inkl. Summenzeichen
30.01.2020 12:29:02
onur
Gebe irgend einer Zelle dieses Format, kopiere per Makro diese Zelle und füge in der gewünschten Zelle nur die Formatierung ein. 
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

AW: Zahlenformat per Makro inkl. Summenzeichen
30.01.2020 12:36:56
Paul
@onur: Danke. Aber es sollte eben möglichst so sein, dass nicht extra auf eine bestimmte vorformatierte Zelle zugegriffen wird.
Anzeige
AW: Zahlenformat per Makro inkl. Summenzeichen
30.01.2020 12:39:15
onur
Ich habe dir eine schnelle und funktionierende Lösung angeboten - wenn sie dir nicht passt, noch viel Glück !
AW: Zahlenformat per Makro inkl. Summenzeichen
30.01.2020 12:44:03
Paul
Ich habe mich doch bei dir bedankt :-)
Wollte nur sagen, dass ich noch nach einer Alternative suche.
AW: Laienhafte Möglichkeit ...
30.01.2020 16:18:55
Dieter(Drummer)
Hallo Paul,
ich finde, dass Onur da schon eine prima Lösung angegeben hat.
Da mich ebenfalls interessiert, wie man per VBA eine benutzerdefinierte Zahlen Lösung mit Extras erstellt, habe ich nur einen laienhaften Anfangscode: 
Sub SumZeichen_Test()
Selection.NumberFormat = """? = ""#,##0.00 ""Stück"""
End Sub
Das Problem dabei ist nur, dass ich nicht das "?" Zeichen, das entstanden ist, als ich im Code das Summmenzeichen "∑" (ChrW(425) per kopieren in den Code eingefügt habe, Das Summenzeichen lässt sich so nicht in den VBA Code einfügen. Da haben nur Spezialisten/innen eine Lösung.
Interessante Sache ...
Anzeige
= """" & ChrW(425) & "= ""General"" Stück""" --orT
31.01.2020 04:14:25
Luc:-?
Morhn, Luc :-?
AW: = """" & ChrW(425) & "= ""General"" Stück""" --orT
31.01.2020 07:15:45
Paul
Super, vielen Dank! Funktioniert wunderbar.
Problem gelöst :o)
AW: Eine tolle Lösung ...
31.01.2020 08:53:19
Dieter(Drummer)
Guten Morgen Luc :-?,
Danke ... ich finde, Du hast da eine tolle Lösung geschaffen, die man auch für weitere Varianten nutzen kann.
Danke, wenn auch nur als Mitinteressent,
grüßt, Dieter(Drummer)
Anzeige
In der Art muss man in VBA immer vorgehen, ...
31.01.2020 14:22:36
Luc:-?
…Dieter & Paul,
falls es sich um Zeichen handelt, die im ASCII-/Ansi-Zeichenvorrat (0-255) nicht enthalten sind, da sie im VBEditor nicht dargestellt wdn (→?). Allerdings umfasst ChrW auch nicht alle inzwischen in Xl und Unicode möglichen Zeichen, zB diese hier: 🙈 🙉 🙊 🐵
Gruß, Luc :-?
„Die universelle Befähigung zur Unfähigkeit macht jede menschliche Leistung zu einem unglaublichen Wunder.“ Stapps ironisches Paradoxon
Nichtsdestotrotz Durchblick verbessern mit …
Anzeige
Alternativ zu ChrW gibt es in den neueren
31.01.2020 14:53:25
Daniel
Excelversionen (laut Supportseite ab 2013) auch noch die Excelfunktion UNIZEICHEN um Zeichen aus dem Unicode-Zeichensatz darzustellen.
diese Funktion kann mehr Zeichen darstellen als ChrW (bspw auch Lucs Affen) und wird in VBA über Worksheetfunction.UniChar(…) eingesetzt.
als Workaorund für ältere Excelversionen könnte man auch noch die benötigten Zeichen per Copy-Paste in eine Excelzelle einfügen und von dort in eine Stringvariable einlesen, wenn das Zeichen in VBA benötigt wird.
Gruß Daniel
Anzeige
AW: Danke Luc :-? und Daniel ...
31.01.2020 15:47:21
Dieter(Drummer)
... für eure interessanten Zusatzinfos.
Habe da noch eine Frage zu NumberFormat "General". Wie muss der Code lauten, wenn die Zahl aus Zelle, entweder positiv oder negativ ist?
Jetziger Code von Luc :-?, der wie gewünscht funktioniert:

Selection.NumberFormat = """" & ChrW(425) & "= ""General"" Stück"""

Ergebnis bei eingegebener Zahl z.B 120, ist: ∑ = 120 Stück. Das ist ok.
... Wenn aber statt "General" im Code, die Zahl positiv oder auch negativ erscheinen soll, geht es so, wie ich versucht habe nicht, denn dann fehlt ∑ =:
Jetziger Code:
Selection.NumberFormat = """" & ChrW(425) & "= ""#,##0.00;[Red]- #,##0.00"" Stück"""
Ergebnis ist: 120 Stück. Also ohne ∑ =.
Mit "Number" oder "Currency", statt "General", ging es auch nicht.
Was ist da falsch an meiner Codezeile?
Wäre schön, wenn es da auch eine Lösung gibt.
Gruß, Dieter(Drummer)
Anzeige
;

Forumthreads zu verwandten Themen

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
zahlen in zeichenkette suchen und wert zurück gebe
gatewax

Hallo,
ich habe einen Spaltenbereich xy der verschiedene Werte aus Zahlen und Texten enthält. (Bsp Asdf0001, B/123_sdf, usw.)
nun habe ich in einer weiteren spalte z zahlen stehen welche in dem spaltenbereich xy (unabhängig ob alleinstehen oder in Textkombination) vorkommen.
ich suc...
27.11.2008 08:22:20
Thread-ID: 1028208
3 Beiträge
Anzeige
Zeichenanzahl einer Textbox festlegen
Heinz

Hallo Leute
Habe eine Frage zum setzen einer Zeichenanzahl in einer Textbox.
Ich habe eine UF mit Textboxen, wo max.31 Zeichen enthalten sein dürfen.
Wie kann man diese bitte beschränken ?
Danke
Heinz
25.12.2008 21:05:00
Thread-ID: 1035243
5 Beiträge
Anzeige
Text an bestimmtem Zeichen trennen?
Kasimir

Hallo Leute,
ich benötige mal Eure Hilfe. Ich würde gerne über ein Makro den Zellinhalt teilen. In der Zelle können folgende Kombinationen vorkommen:
Testeintrag 1 Testwert 1 -> Testeintrag 2 Testwert 2
oder
Testeintrag 1 Testwert 1 -> Testeintrag 2 Testwert 2 -> Testei...
31.01.2009 08:38:28
Thread-ID: 1045576
3 Beiträge
Tausenderzeichen in Textbox
Stefen

Hi Leute
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1=Format(TextBox1,"#,##0.00") End Sub
eingebe sollte doch in Verbindung mit Controlsource in der TextBox die Tausenderzeichen stehen.
Warum geht das nicht.
Es zeigt mir immer nur den Betrag 50000...
31.01.2009 16:44:00
Thread-ID: 1045681
12 Beiträge
Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
Anzeige
Keine Sonderzeichen in mehreren Textboxen
Roland

Hallo VBA Profis
ich überprüfe mit folgendem Code ob jemand ein Sonderzeichen eingibt.
Sub txt_AuftragsNr_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 65 To 90, 48 To 57 'Grossbuchstaben, Zahlen Case 97 To 122 'Kleinbuchstaben Case Else MsgBox "Es sind k...
02.03.2009 11:41:30
Thread-ID: 1055489
5 Beiträge
Sonderzeichen in Textbox
Artur

Hallo User,
ich habe eine userForm als Eingabemaske entwickelt. Eins der Eingabefelder (Textbox) wir in der weiteren Verwendung als Dateiname verwendet. Wie kann ich es jetzt verhindern das der Benutzer die Sonderzeichen \ / ; usw. nicht in die Textbox einträgt. Vorerst vielen dank für Eure...
03.03.2009 10:45:06
Thread-ID: 1055855
6 Beiträge
Anzeige
Fremdzeichen beim Export in Textdatei
Josef

Hallo!
Manchmal wird bei der Eingabe eines längeren Textes in eine Zelle ein Return gesetzt. Wenn man dann diese Datei in ein Textfile speichert, so erhält man in der Textdatei an diesen Stellen ein leeres Quadrat. Wie kann man bitte verhindern, dass in der Textdatei solche Zeichen gesetzt...
06.04.2009 10:20:01
Thread-ID: 1067048
2 Beiträge
Keine Sonderzeichen in mehreren Textboxen
Roland

Hallo Excel-Profis
Ich habe eine Excel-Datei von ca. 1,7MB Grösse mit 32 Tabellen ein paar Userforms und diverse VBA Codes.
Auf meinem Rechner
Lenovo ThinkPad T60
Intel(R) Core(TM)2 CPU
T7200 @ 2.00GHz, 1.99 GB RAM
mit Office 2003,
ist die Datei in 3 sec. gespeiche...
09.04.2009 16:02:07
Thread-ID: 1068056
3 Beiträge
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zahlenformatierung mit dem Summenzeichen in Excel

Schritt-für-Schritt-Anleitung

Um das Zahlenformat in Excel per Makro zu ändern und das Summenzeichen (∑) anzuzeigen, kannst du die folgenden Schritte ausführen:

  1. Öffne den Visual Basic Editor (VBE) in Excel, indem du ALT + F11 drückst.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject", wähle "Einfügen" und dann "Modul".

  3. Gib den folgenden Code ein:

    Sub FormatWithSumSymbol()
    With Selection
        .Font.Name = "Arial Unicode MS"
        .Value = ChrW(425) ' Summenzeichen
        .NumberFormat = """Σ= ""General"" Stück"""
    End With
End Sub

  4. Schließe den VBE und gehe zurück zu Excel.

  5. Markiere die Zelle, die du formatieren möchtest, und führe das Makro aus.

Häufige Fehler und Lösungen

  • Das Summenzeichen wird nicht angezeigt: Stelle sicher, dass du die Schriftart "Arial Unicode MS" verwendest, da diese das Summenzeichen unterstützt.
  • Formatierung wird nicht angewendet: Überprüfe, ob die Zelle die richtige Auswahl hat, bevor du das Makro ausführst.
  • Falsches Zeichen angezeigt: Wenn das Zeichen nicht korrekt dargestellt wird, könnte der ASCII-Code falsch sein. Verwendet ChrW(425) für das Summenzeichen.

Alternative Methoden

Eine alternative Methode zur Verwendung des Summenzeichens ist die Funktion UNICHAR, die in neueren Excel-Versionen verfügbar ist:

  1. Verwende die Funktion in einer Zelle:

    =UNICHAR(8721) & " = " & A1 & " Stück"

  2. Diese Methode zeigt das Summenzeichen in einer Zelle an, ohne ein Makro zu benötigen.

Praktische Beispiele

Hier sind einige Beispiele, wie du das Summenzeichen in einer Zelle formatieren kannst:

  • Beispiel 1: Verwende ein Makro, um Σ= 10 Stück anzuzeigen, wenn du in eine Zelle 10 eingibst.

  • Beispiel 2: Verwende eine Formel, um die Summe von mehreren Zellen zu berechnen und das Ergebnis mit dem Summenzeichen anzuzeigen:

    =UNICHAR(8721) & " = " & SUM(A1:A10) & " Stück"

Tipps für Profis

  • Verwende VBA-Variablen: Du kannst die ChrW-Funktion in Kombination mit Variablen verwenden, um dynamisch verschiedene Sonderzeichen zu benutzen.

  • Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen in deinen VBA-Code, um unerwartete Probleme zu vermeiden.

  • Tastenkombinationen: Du kannst das Summenzeichen auch über die Tastenkombination ALT + 228 eingeben, wenn du die richtige Schriftart hast.

FAQ: Häufige Fragen

1. Wie kann ich das Summenzeichen in Word verwenden?
Du kannst das Summenzeichen auch in Word durch die gleiche Tastenkombination ALT + 228 oder durch Einfügen des Zeichens über das Menü "Einfügen" > "Symbol" einfügen.

2. Warum funktioniert ChrW nicht für alle Zeichen?
ChrW unterstützt nicht alle Zeichen im Unicode-Zeichensatz. Für mehr Zeichen kannst du die UNICHAR-Funktion verwenden, die in aktuellen Excel-Versionen verfügbar ist.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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