Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Unicode > ASCII

Unicode > ASCII
13.01.2004 11:56:00
Ralph P.
Hallo.
Kann mir jemand einen Tip geben, wie ich den Inhalt einer Zelle, in der Unicode-Zeichen sind, in ASCII-Zeichen konvertieren kann. Am besten über VBA.
Danke im Voraus.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Unicode > ASCII
13.01.2004 15:00:46
Reinhard
Hi Ralph,
bis 255 mag man ja ein Unicode-Zeichen in ein Ascii-Zeichen konertieren können, danach wirds eng :-)
Mit ChrW(x) [x=0...65535] bekommst du das Unicodezeichen für x.
Mit AscW(UnicodeZeichen) erhälst du die Zahl die dem Unicodezeichen entspricht.
Wenn du das nachfolgende Makro laufenläßt, siehst du welche Unicode-zeichen dein Excel darstellen kann.
Aber auch wenn es das Zeichen nicht darstellen kann, müßte AscW funktionieren.
Gruß
Reinhard 

Sub unic()
On Error Resume Next
For n = 0 To 65535
Cells(n, 1) = Format(n, "00000")
Cells(n, 2) = ChrW(n)
Next n
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige