Gruppe
UDF
Problem
In Zelle B2 sollen die in der Formel in A1 enthaltenen Zahlen gezählt werden.
StandardModule: basMain
Function NumberCount(rng As Range)
Dim sFormula As String
Dim iCounter As Integer, iCount As Integer
Dim bln As Boolean
sFormula = rng.Formula
For iCounter = 1 To Len(sFormula)
If IsNumeric(Mid(sFormula, iCounter, 1)) Then
If bln = False Then
iCount = iCount + 1
bln = True
End If
Else
If Mid(sFormula, iCounter, 1) <> "." Then
bln = False
End If
End If
Next iCounter
NumberCount = iCount
End Function