BuchstabenRaus
06.11.2007 09:20:58
Ernst
Habe einen mangelhaften Code, welcher Buchstaben von Zahlen trennt, jedoch ignoriert er den Dezimalpunkt.
z.B. aus: nach unten 0.13
Ergebnis: 0.13
Der Code unten liefert als Ergebnis 13 und nicht 0.13
Was stimmt da nicht?
Bitte um Hilfe
mfg
Ernst Dunkel
Function BuchstabenRaus(rng As Range) Dim intZ As Integer
For intZ = 1 To Len(rng)
Select Case Asc(Mid(rng, intZ, 1))
Case 46 To 57
BuchstabenRaus = Val(BuchstabenRaus & Mid(rng, intZ, 1))
End Select
Next intZ
End Function
Anzeige