AW: Zahl aus einem String auslesen
26.07.2016 18:10:07
Daniel
Hi
das Problem ist, dass du das Komma auch mit nehmen musst, sonst ist deine Zahl ja nicht vollständig.
wenn deine Texte das Komma nur in der Zahl enthalten und nicht als Satzzeichen, dann so:
die [] im LIKE-Operator geben an, dass hier mehrere verschiedene Zeichen zur Auswahl stehen, hier die Ziffern und das Komma.
Function NurZahlen(ByVal s As String) As String
Dim z As Long, r As String
For z = 1 To Len(s)
If Mid(s, z, 1) Like "[#,]" Then r = r & Mid(s, z, 1)
Next z
NurZahlen = r
End Function
wenn das Komma auch als Satzzeichen vorkommen könnte, darf es nur übernommen werden wenn es zwischen zwei Ziffern steht. dann etwas aufwendiger:
Function NurZahlen(ByVal s As String) As String
Dim z As Long, r As String
For z = 1 To Len(s)
If Mid(s, z, 1) Like "#" or Mid("x" & s & "x", z, 3) like "#,#" Then r = r & Mid(s, _
z, 1)
Next z
NurZahlen = r
End Function
Gruß Daniel