Excel und VBA: Formeln, Programmierung, Lösungen

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