Thomas Risi Softwareentwicklung

NumFilter

Diese Tabellenfunktion filtert eine Zahl aus einem Text heraus.

Option Explicit Public Function NumFilter(Text As String) As Double Dim i&, res$, c$ For i = 1 To Len(Text) c = Mid$(Text, i, 1) Select Case c Case 0 To 9, "," res = res + c End Select Next i If Not res = "" Then NumFilter = CDbl(res) 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)