886 Aufrufe
Gefragt in Datenbanken von
Hallo,

kann mir jemand sagen, wie ich in Access mit VBA einen Text in eine
Zahl umwandle.

z.B. "Hallo" in 1811222225 also H=18, A=11 usw. Wenn eine Ziffer
dabei ist, soll sie ihren Wert behalten. also 1 bleibt 1. Groß-
Kleinschreibung und Leerzeichen müssen nicht beachtet werden, da
ich vorher alle Leerzeichen entferne und den Text in Großbuchstaben
umformatiere. Sonderzeichen sind auch nicht relevant. also nur von 0-9
und A-Z

Besten dank im Voraus

Lg

macxs

2 Antworten

0 Punkte
Beantwortet von steffen2 Experte (6.4k Punkte)
ich würde es in in die zugehörige ASCII-Dezimalzahl umwandeln.

Deine Methode hat ein Problem mit dem Mix aus ein und zweistelligen Ziffernfolgen: 11 kann A oder 11 sein.

ASCII:
https://de.wikipedia.org/wiki/American_Standard_Code_for_Information_Interchange#Zusammensetzung

da gibt es bestimmte fertige Code-Schnipsel

eine Google Suche die dir helfen könnte:
https://www.google.de/search?q=char+to+ascii+vba

Gruß Steffen2
0 Punkte
Beantwortet von
Hallo,

danke für die Antwort.

Ich habe es so gelöst:

Dim meintext As String
Dim i As Integer
For i = 1 To Len(meintext)
meintext = Asc(meintext)
textalszahl = textalszahl & meintext
Next i

A ist jetzt zwar nicht 11 sondern 64, aber das ist egal

Lg

macxs
...