Thomas Risi Softwareentwicklung

GetNumerics

Diese Funktion extrahiert Zahlen aus einem übergebenen Text, und liefert diese in einem Array zurück. Das Array läßt sich dann in der aufrufenden Funktion weiterverwenden. So kann z.B. Telefonnummern, Artikelnummern, usw. zerlegen ...

In einer Exceltabelle kann die Funktion als Array-Funktion genutzt werden, mit Strg - Umschalt - Enter abschließen.

Option Explicit Public Function GetNumerics(ByVal Text As String) As Variant Dim myArray() As String Dim myText As String: myText = "" Dim i As Long: i = 0 Text = Text & " " Do While Len(Text) > 0 If IsNumeric(Left(Text, 1)) Then myText = myText & Left(Text, 1) ElseIf Not (myText = "") Then ReDim Preserve myArray(i) myArray(i) = myText i = i + 1 myText = "" End If Text = Right(Text, Len(Text) - 1) Loop GetNumerics = myArray End Function

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)