Zeichen in String zählen

Public Function AnzahlZeichen(TextZelle As Range, SuchString As String)

Dim lngCnt

With TextZelle.Cells(1, 1)
 AnzahlZeichen = 0
For lngCnt = 1 To Len(.Text)
If Mid(.Text, lngCnt, 1) = SuchString Then _
 AnzahlZeichen = AnzahlZeichen + 1
Next lngCnt
End With

End Function

Nehmen wir an, der zu prüfende Text befindet sich in Zelle A1, dann können Sie die Zählfunktion mit folgendem Aufruf starten: =ANZAHLZEICHEN(A1;"e")

Beispiel 2:

Ein ganz anderer, aber interesanter Ansatz basiert auf dem Einsatz von VB-Script.

Public Function AnzahlZeichen(Zelle, Buchstabe)
 Dim regex As Object
 Set regex = CreateObject("Vbscript.Regexp")
 With regex
 .Pattern = Buchstabe
 .ignorecase = True
 .Global = True
 AnzahlZeichen = .Execute(Zelle.Text).Count
 End With
 End Function

Sub Zählen_i()
 
 Dim strTxt$, strWas$, lngAnz%
 strTxt = "Wo steht das geschrieben?"
 strWas = "e"
 
 '** Genaues Vergleichen
 lngAnz = Len(strTxt) - Len(Replace(strTxt, strWas, ""))
 MsgBox lngAnz
 
 '** Groß- Kleinschreibung nicht relevant
 lngAnz = Len(strTxt) - Len(Replace(UCase(strTxt), UCase(strWas), ""))
 MsgBox lngAnz
 
 End Sub