Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zählen von in einer Formel vorkommenden Zahlen

Gruppe

Numerisch

Problem

In Zelle B2 sollen die in der Formel in A1 enthaltenen Zahlen gezählt werden.

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

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