Ziffern aus Zeichenketten extrahieren

Ziffern aus Zeichenketten extrahieren

Oft müssen Zeichenketten, die überwiegend Ziffern enthalten, wie Zahlen behandelt werden. Um zum Beispiel zu Sortieren oder Nummernbereiche einzugrenzen. Dazu ist es notwendig, die Ziffern aus Zeichenketten zu extrahieren.

Diese Funktion gibt die in Text enthaltenen Ziffernkolonnen zurück, beginnt links und bricht beim ersten Zeichen ab, welches keine Ziffer ist.

Function Numeric(Text)
    Dim i
    For i = 1 To Len(Text)
        Select Case Mid(Text, i, 1)
            Case 0 To 9
                Numeric = Numeric & Mid(Text, i, 1)
            Case Else
                Exit Function
        End Select
    Next i
End Function

So lassen sich Postleitzahlen vom Ort trennen, oder Werte von ihren Maßeinheiten.
Bei gemischten Inhalten kann zur Verbesserung der Performance eine Abfrage mit der isnumeric() – Funktion vorangestellt werden.