Gruppe
UDF
Bereich
Zeichenfolge
Thema
Häufigkeit des Vorkommens eines Zeichens
Problem
Wie kann ich die Häufigkeit des Vorkommens eins bestimmten Zeichens in einer Zelle oder einem Bereich ermitteln?
Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.
StandardModule: basMain
Function HowMuch(rng As Range, strText As String)
Dim rngAct As Range
Dim var As Variant
Dim iCounter As Integer
Application.Volatile
For Each rngAct In rng.Cells
var = rngAct.Value
iCounter = iCounter + Len(var) - _
Len(Application.Substitute(var, strText, ""))
Next rngAct
HowMuch = iCounter
End Function