Ascii-Code auslesen

Forumthread: Ascii-Code auslesen

Ascii-Code auslesen

06.05.2008 13:47:31

Fabian


Sub aus_zeichen_asciicode_auslesen()
Dim zeichen As String
Dim ausgabe As String
zeichen = InputBox("Bitte geben Sie ein Zeichen ein, für das Sie den Asciicode wissen wollen!",  _
"Eingabe")
ausgabe = ChrW(zeichen)
MsgBox ausgabe
End Sub

Gibt es eine Funktion die es ermöglicht den Ascii-Code auszulesen, weil hier wird ja nur aus dem Ascii-Code das Zeichen aussgelesen was ich aberr nicht haben will. Ich habe nichts im Internet gefunden!
Danke für eure Hilfe!

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Asc() owT

06.05.2008 13:51:00

Rudi
AscW() oT

06.05.2008 13:52:44

Bertram

Asc() owT

06.05.2008 13:51:00

Rudi

AscW() oT

06.05.2008 13:52:44

Bertram

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

Kopiere den folgenden VBA-Code in das Modul:

Sub aus_zeichen_asciicode_auslesen()
    Dim zeichen As String
    Dim ausgabe As String
    zeichen = InputBox("Bitte geben Sie ein Zeichen ein, für das Sie den Asciicode wissen wollen!", "Eingabe")
    ausgabe = AscW(zeichen)
    MsgBox "Der ASCII-Code für das Zeichen '" & zeichen & "' ist: " & ausgabe
End Sub

Schließe den VBA-Editor und gehe zurück zu Excel.
Drücke ALT + F8, wähle die Subroutine aus_zeichen_asciicode_auslesen aus und klicke auf Ausführen.
Gib das Zeichen ein, dessen ASCII-Code du ermitteln möchtest, und bestätige.

Häufige Fehler und Lösungen

Fehler: "Type mismatch" beim Ausführen des Codes.
Lösung: Stelle sicher, dass du ein einzelnes Zeichen eingibst. Der Code erwartet ein Zeichen und kann bei mehr als einem Zeichen Fehler auslösen.
Fehler: Das Fenster für die Eingabe erscheint nicht.
Lösung: Überprüfe, ob Makros in Excel aktiviert sind. Gehe zu Datei → Optionen → Trust Center → Einstellungen für das Trust Center und aktiviere Makros.

Alternative Methoden

Wenn du keine VBA-Funktion verwenden möchtest, kannst du die Funktion ASC() in Excel verwenden:

Gib in eine Zelle das Zeichen ein, dessen ASCII-Code du ermitteln möchtest.
In einer anderen Zelle kannst du die Funktion =ASC(A1) verwenden, wobei A1 die Zelle mit deinem Zeichen ist.

Für Unicode-Zeichen kannst du =CODE(A1) verwenden, um den entsprechenden Wert zu erhalten.

Praktische Beispiele

Beispiel 1: Ermitteln des ASCII-Codes für das Zeichen "A".
- Gib A in Zelle A1 ein und verwende die Formel =ASC(A1). Das Ergebnis wird 65 sein.
Beispiel 2: Verwenden der VBA-Funktion für das Zeichen "@".
- Führe die VBA-Routine aus und gib @ ein. Das Ergebnis in der MsgBox wird 64 sein.

Tipps für Profis

Nutze die AscW()-Funktion, wenn du mit Unicode-Zeichen arbeitest. Diese Funktion ist besonders nützlich für internationale Zeichen und spezielle Symbole.
Wenn du häufig mit ASCII-Codes arbeitest, erstelle ein UserForm in VBA, um eine benutzerfreundliche Oberfläche zu gestalten.

FAQ: Häufige Fragen

1. Was ist der Unterschied zwischen Asc() und AscW()?
Asc() gibt den ASCII-Code für Zeichen im ASCII-Bereich zurück, während AscW() den Unicode-Wert für Zeichen zurückgibt, die über den klassischen ASCII-Bereich hinausgehen.

2. Kann ich ASCII-Codes für mehrere Zeichen gleichzeitig ermitteln?
Ja, du kannst eine Schleife in VBA verwenden, um die ASCII-Codes für eine Reihe von Zeichen auszulesen und anzuzeigen.

3. Wo finde ich eine ASCII-Codetabelle?
Es gibt viele Ressourcen online, die eine ASCII-Codetabelle bereitstellen. Eine einfache Google-Suche nach "ASCII Codetabelle" wird dir viele Ergebnisse liefern.

Beliebteste Forumthreads (12 Monate)