Excel 2007 - String in Zahl konvertieren

[Kerrin]

Hallo,

ich brauche mal wieder Hilfe.

Ich möchte einen String z.B. "ABC" in eine Zahl umwandeln. Leider habe ich bisher keine Lösung gefunden. Während Val("ABC") null liefert, erhalte ich mit ASC("ABC") immerhin 65. Aber das ist eben nur die ASCI-Zahl für A.

Vielleicht kann mir jemand helfen?


Danke
Kerrin

[IngGi]

Hallo Kerrin,

was soll denn "ABC" für eine Zahl ergeben ??? Nach welcher Regel sollen Buchstaben in Zahlen umgesetzt werden?

Gruß Ingolf

[R J]

Hi Kerrin,

ein String ist nun einmal keine Zahl. Und Asc liefert nun einmal nur den Ascii Code eines Zeichens. Eine Zeichenkette musst Du demnach in einer Schleife in ihre Einzelteile zerlegen und - je nachdem welches Ergebnis Du erwartest, zusammensetzen. Bsp.:

Code:

Sub z()
Dim sZK$, x As Byte, zahl#
sZK = "ABC"

    For x = 1 To Len(sZK)
        zahl = CDbl(Asc(VBA.Mid(sZK, x, 1))) + zahl
    Next x
    
MsgBox zahl
End Sub

[Kerrin]

Ich hatte gehofft, dass es irgendwie möglich ist.
Dass ich die einzelnen Buchstaben umwandeln kann ist klar.

Vielen Dank
Kerrin

[Berti_S]

Hallo Kerrin,

zumindest alternativ: Zahl oder Text in A1, nachstehende Formel in B1

=WENN(A1="";A1;WENN(T(A1)="";WERT(A1);""))

Teile des Zellwertes (z.b. ABC19 --> 19) gehen sinnvoll nur per VBA.

Berti

[R J]

...wenn Du bestimmten Zeichenfolgen genau definierte Zahlen zuweisen willst, dann musst Du das vorher definieren. Z.Bsp. in einer Tabelle oder in einem Array. Bsp.

Code:

Sub z()
'Array mit 3 Elementen [0 - 2]
Dim aZW(2) As String, x As Byte
'Array füllen
For x = 0 To 2
        aZW(x) = Chr(65 + x) & Chr(65 + x + 1) & Chr(65 + x + 2)
Next x
'...auslesen
For x = 0 To 2
       MsgBox "Die Zeichenfolge '" & aZW(x) & "' hat den Wert " & x + 1
Next x

End Sub

[Kerrin]

Ich habe nun lange hin und her überlegt. Letzendlich habe ich die erste Idee von RJ umgesetzt.

Vielen Dank
Kerrin