Herbers Excel/VBA-Archiv

String in integer umwandeln

• String in integer umwandeln von Gernot vom 07.09.2004 20:53:15
• AW: String in Long umwandeln - von Sigi am 07.09.2004 21:02:27
  • AW: String in Long umwandeln Version 2 - von RAnton am 07.09.2004 21:48:03
    • AW: String in Long umwandeln Version 2 - von Sigi am 08.09.2004 21:41:58

Betrifft: String in integer umwandeln von: Gernot
Geschrieben am: 07.09.2004 20:53:15

Hejsa
ich abe in eine Tabelle Zeichenfolgen eingelesen. zB X1, X24, X96 usw. Ich moechte gerne die Ziechenfolge an einen string uebergeben, das X entfernen und dann die enstandende Zahl (zb 24) an eine Integer variable weitergeben.

Geht das???

Gruss aus Kopenhagen

Betrifft: AW: String in Long umwandeln von: Sigi
Geschrieben am: 07.09.2004 21:02:27

Hallo Gernot,

mit dieser VBA-Fkt. ...

Function ZahlAusText(Text As String) As Long
Dim Txt As String
Dim i As Long
    For i = 1 To Len(Text)
        If Asc(Mid(Text, i, 1)) >= 48 And Asc(Mid(Text, i, 1)) <= 57 Then
            Txt = Txt & Mid(Text, i, 1)
        End If
    Next i
ZahlAusText = CLng(Txt)
End Function

Gruß
Sigi




Betrifft: AW: String in Long umwandeln Version 2 von: RAnton
Geschrieben am: 07.09.2004 21:48:03

Hallo Sigi,
hast du diese Variante schon mal ausprobiert?

val(right("X25",len("X25")-1))

oder mit deinem Text

val(right("Text",len("Text")-1))

Gruß

Anton




Betrifft: AW: String in Long umwandeln Version 2 von: Sigi
Geschrieben am: 08.09.2004 21:41:58

Hallo Anton,

für das Problem von Gernot ist deine Lösung perfekt! Ich hatte meine Funktion in einem
anderen Zusammenhang geschrieben. Meine Funktion sollte aus einem größeren String ("je
Tonne 195 Euro (zzgl. MWSt)") die Zahl herausfiltern.

Gruß
Sigi

Beiträge aus den Excel-Beispielen zum Thema "String in integer umwandeln"