Damit diese Formel genutzt werden kann, muss dieser Code in ein allgemeines Modul.
Public Function Zählenwenntext(ByVal Bereich As Range, ByVal Suchbegriff As String) As Long
Dim SPL
Dim intI As Integer
Dim Zelle As Range
For Each Zelle In Bereich
SPL = Split(Zelle, " ")
For intI = 0 To UBound(SPL)
If UCase(SPL(intI)) Like UCase(Suchbegriff) Then
Zählenwenntext = Zählenwenntext + 1
End If
Next
Next
End Function