Microsoft Excel

Herbers Excel/VBA-Archiv

String in integer umwandeln

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"