Gruppe
UDF
Problem
Wie kann ich eine in einer Zeichenfolge enthaltene Zahl herausfiltern?
StandardModule: basMain
Function NumberFilter(strText) As Long
Dim iCounter As Integer
Dim sNumber As String
For iCounter = 1 To Len(strText)
If IsNumeric(Mid(strText, iCounter, 1)) Then
sNumber = sNumber & Mid(strText, iCounter, 1)
End If
Next iCounter
NumberFilter = CLng(sNumber)
End Function