Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Sonderzeichen über VBA in Zelle eingeben

Sonderzeichen über VBA in Zelle eingeben
06.07.2005 11:19:13
Stefan
Hallo Zusammen,
ich habe folgendes Problem, welches ich auch nach intensivem googeln nicht gelöst bekomme:
In eine Zelle soll mit VBA ein Text inklusive des Sonderzeichens "grösser/gleich" und "kleiner/gleich" (Zeichencode (ASCII(hex) 2265 und 2264) eingegeben werden. Leider funktioniert der Chr-Befehl hier nicht, da die o.g. Zeichen nicht in der ASCII(dezimal)-Tabelle angegeben sind.
Die Lösung sollte also in etwa folgendermassen aussehen:
Zelleneintrag = "Text1" & Chr(?) & "Text2"
Meine Frage:
Ist der Chr-Befehl hier überhaupt richtig am Platz oder existiert hierfür ein anderer Befehl?
Viele Grüsse
Der Stefan
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Sonderzeichen über VBA in Zelle eingeben
06.07.2005 11:28:22
u_
Hallo,
natürlich sind die in der Tabelle. chr(60) und chr(62)
Gruß
Geist ist geil!
AW: Sonderzeichen über VBA in Zelle eingeben
06.07.2005 11:33:21
Stefan
Hallo u_,
leider klappt dies nicht, da die Zeichencodes 60 und 62 "grösser" und "kleiner" sind, und nicht "grösser/gleich" und "kleiner/gleich"
Gruss
Stefan
AW: Sonderzeichen über VBA in Zelle eingeben
06.07.2005 13:20:08
u_
Hallo,
wer lesen kann ist klar im Vorteil. ;-))
Gruß
Geist ist geil!
Anzeige
AW: Sonderzeichen über VBA in Zelle eingeben
06.07.2005 11:34:01
MichaV
Hallo
zuerst dachte ich, Du spinnst. Aber Du hast recht!
ASCII(hex) 2264 und 2265 sind in Dezimal 8804 und 8805.
Das Zeichen kriegst Du mit ChrW(8804) bzw. ChrW(8805)
Gruß- Micha
PS: Rückmeldung wäre nett.
AW: Sonderzeichen über VBA in Zelle eingeben
06.07.2005 11:40:28
Stefan
Hallo Micha,
Danke für die Hilfe. Jetzt funzt es (Wäre aber auch zu einfach gewesen, wenn die Sonderzeichen in Excel durchgängig in dezimal dargestellt würden ;) )
Viele Grüsse
Stefan
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Sonderzeichen über VBA in Excel eingeben


Schritt-für-Schritt-Anleitung

Um Sonderzeichen wie "größer gleich" (≥) und "kleiner gleich" (≤) in eine Excel-Zelle über VBA einzugeben, kannst du den ChrW-Befehl verwenden. Hier ist eine einfache Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Erstelle ein neues Modul, indem du mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" klickst und "Einfügen" > "Modul" wählst.

  3. Füge den folgenden Code in das Modul ein:

    Sub SonderzeichenEingeben()
        Dim ws As Worksheet
        Set ws = ThisWorkbook.Sheets("Tabelle1") ' Namen der Tabelle anpassen
        ws.Range("A1").Value = "Text1 " & ChrW(8805) & " Text2" ' Größer gleich
        ws.Range("A2").Value = "Text1 " & ChrW(8804) & " Text2" ' Kleiner gleich
    End Sub
  4. Schließe den VBA-Editor und führe das Makro aus, indem du ALT + F8 drückst und "SonderzeichenEingeben" auswählst.


Häufige Fehler und Lösungen

  • Fehler: Typen nicht kompatibel

    • Lösung: Stelle sicher, dass das Zielzellenformat (z.B. Text) korrekt ist und dass du ChrW anstelle von Chr verwendest, da Chr nur für ASCII-Zeichen geeignet ist.
  • Fehler: Zeichen erscheinen nicht korrekt

    • Lösung: Überprüfe, ob die Schriftart der Zelle das gewählte Sonderzeichen unterstützt. Verwende eine Schriftart wie Arial Unicode MS.

Alternative Methoden

Falls du kein VBA verwenden möchtest, kannst du auch die Zeichen direkt über die Zeichentabelle in Windows kopieren. Gehe dazu wie folgt vor:

  1. Öffne die Zeichentabelle (drücke Windows-Taste + R, gib charmap ein und drücke Enter).
  2. Suche nach dem gewünschten Zeichen (z.B. ≥ oder ≤).
  3. Kopiere das Zeichen und füge es direkt in die Excel-Zelle ein.

Praktische Beispiele

Hier sind einige Beispiele, wie du Sonderzeichen in Excel einfügen kannst:

  • Sonderzeichen für größer gleich:

    ws.Range("B1").Value = "Wert1 " & ChrW(8805) & " Wert2"
  • Sonderzeichen für kleiner gleich:

    ws.Range("B2").Value = "Wert1 " & ChrW(8804) & " Wert2"

Diese Methoden ermöglichen es dir, die ASCII-Zeichen in Excel korrekt darzustellen, ohne auf die Limitationen der ASCII-Tabelle zurückgreifen zu müssen.


Tipps für Profis

  • Wenn du häufig mit Sonderzeichen arbeitest, erstelle eine Funktion in VBA, die dir die Eingabe von ASCII-Zeichen erleichtert.
  • Nutze die ChrW-Funktion für Unicode-Zeichen, um eine breitere Auswahl an Symbolen zu erhalten.
  • Überprüfe die chrw tabelle, um die korrekten Codes für andere häufig verwendete Sonderzeichen zu finden.

FAQ: Häufige Fragen

1. Wie kann ich andere Sonderzeichen in Excel einfügen? Du kannst einfach die entsprechenden Unicode-Zahlen im ChrW-Befehl verwenden. Eine vollständige Liste findest du in der chrw tabelle.

2. Warum funktioniert der Chr-Befehl nicht für bestimmte Zeichen? Der Chr-Befehl funktioniert nur für Zeichen im ASCII-Bereich (0-255). Für Zeichen außerhalb dieses Bereichs, wie die größer gleich oder kleiner gleich Zeichen, musst du ChrW verwenden, das für Unicode-Zeichen geeignet ist.

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