HERBERS Excel-Forum - die Beispiele

Thema: Zählen von in einer Formel vorkommenden Zahlen

Home

Gruppe

UDF

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

Beiträge aus dem Excel-Forum zu den Themen UDF und Numerisch

Lohnsteuerberechnung (UDF, XLM-Datei, Webabfrage) Spezialfilter Alphanumerische Kriterien
Ergebnis UDF ändert, wenn Tabelle deaktiviert wird UDF soll nicht auf Daten anderer Dateien zugreifen
vor Ausführung einer UDF Zwischenspeicher "retten& UDF - Argument ohne " " übergeben möglic
Alphanumerische Werte aus 1 Spalte auslesen Alphanumerische Nummern in TXT Datei speichern
Marko bei numerischer Zelländerung UDF- Beschreibung
Automatische alphanumerische Numerierung Berechnungsdauer einer UDF messen
Hintergrudfarbe ändern??? Finde keine Lösung :-( Probleme mit IsNumeric, Code per UDF
Numerisches Format UDF mittels Ereignis aktualisieren?
UDF, Minuszeichen vor Zahl auswerten nach Worksheet_Change werden UDF nicht ausgewertet
Zahlenliste wird alphanumerisch sortiert Excel anhalten bei UDF
UDF Numerischer Wert aus Textfeld
UDF, Rückgabewert Text anstelle Zahl Aufruf einer UDF, Fehler Objekt erforderlich
SQL in UDF Numerisch?
textBox1 prüfen ob numerische eingabe Extrahierung von alphanumerischen Zeichen aus Ansc
Alphanumerischer Wert - Buchstaben ausschneiden alphanumerisch sortieren mit VBA
Numerische bibliothek Daten numerisch auslesen und ordnen!
Werte einer UDF werden nicht aktualisiert Numerischen Wert in String erkennen
UF: Numerische Dateneingabe überlistet Makro, ab der ersten Numerischen Zahl ausschneiden
Daten Alphanumerisch sortieren Spaltenbezeichnung von numerisch auf alphanumm.
nur numerisch werte in textbox Aufruf von UDF mit Array
Werte alphanumerisch sortieren - ohne VBA sondern Erstes Numerisches Zeichen in Zeichenkette
TextBox numerisch UDF: Semikolon vs Komma
numerische Eingabe alphanumerische zahlen umwandeln
Numerische Zellinhalt in ein Datum umwandeln Datensatzprüfung numerisch/alphanumerisch in Makro
alphanumerische Werte: benutzerdefiniertes Format UDF, erkennen in welcher Zelle die UDF steht