Suche nach Eurobetrag in String
26.01.2019 12:53:32
Ivii
ich habe eine Frage bezüglich einer Zahlen-Suche innerhalb eines Strings.
Ich habe folgendes Beispiel:
String = "Das Produkt kostet 20,21 zuzüglich 30,33 Versand"
Ich möchte über einen VBA-Code erreichen, dass der String durchsucht, jeder Eurobetrag erkannt und bspw. in die Combobox 1 überführt wird. Das heißt in der Combobox 1 soll am Ende 20,21 und 30,33 stehen.
Im Internet habe ich zwar Möglichkeiten gefunden die Zahlen innerhalb des Strings auszulesen, jedoch weiß ich nicht, wie ich erreichen kann, dass Excel jede Zahl, inklusive der Nachkommastellen erkennt und in die Combobox überführt.
Aktueller Stand (Quelle: https://www.ms-office-forum.net/forum/showthread.php?t=182244)
Dim intLength As Integer
Dim lngValue As Long
For intLength = 1 To Len(myString)
If IsNumeric(Mid(myString, intLength, 1)) Then
lngValue = lngValue & Mid(myString, intLength, 1)
End If
Next intLength
MsgBox lngValue
Ich hoffe Ihr könnt mir bei diesem Problem weiterhelfen.
LG
Anzeige