VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Häufigkeit des Vorkommens eines Zeichens

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

    


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