Zeichen in String zählen – Excel-Inside Solutions

Dieser Beitrag zeigt verschiedene Möglichkeiten, um bestimmte Zeichen in einem String zu zählen. So soll beispielsweise im Zelleintrag "Wo steht das geschrieben?" der Buchstabe "e" ermittelt werden.

Beispiel 1:

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

Erfassen Sie diese Funktion in einem neuen Code-Modul.

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

Es handelt sich zwar um einen ganz anderen Ansatz, das Ergebnis ist aber identisch.

Beispiel 3:

Im dritten Beispiel wird mit Funktionen gearbeitet. Dies hat den Vorteil, dass dieser Vergleich relativ schnell sein sollte.

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