Zahl mit Punkt von Text trennen
Text
Mit folgendem Code trenne ich die reine Zahl vom Text, wobei der Punkt verloren geht. Wie kann ich die vollständige Zahl mit Punkt trennen (Ergebnis sollte 150.2 sein)?
Sub test()
Linie = "150.2 (Aaaa - Bbbbb)"
For Start = 1 To Len(Linie)
sZeichen = Mid(Linie, Start, 1)
If IsNumeric(sZeichen) Then
Linie_No = Linie_No & sZeichen
End If
Next Start
MsgBox Linie_No
End Sub
Danke und Gruss
Gregor
Anzeige