Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Filtern einer Zahl aus einer Zeichenfolge

Gruppe

Numerisch

Problem

Wie kann ich eine in einer Zeichenfolge enthaltene Zahl herausfiltern?

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

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