In einem fest­gelegten Bere­ich soll gezählt wer­den, wie oft ein bes­timmtes Zeichen vorkommt. Das Ergeb­nis soll per Funk­tion berech­net wer­den. Fol­gen­der Code gibt das Ergeb­nis zurück:

Function CharCount(Zeichen As String, rng As Range) As Integer
   Dim Rc As Long, c As Range, cChar As String, i As Integer
   For Each c In rng
      For i = 1 To Len(c)
         cChar = CStr(Trim(c))
         If Mid(cChar, i, 1) = Zeichen Then Rc = Rc + 1
      Next i
   Next c
   CharCount = Rc
End Function

Beispiel für einen Aufruf: =CharCount(5, A1:A20) 

Das Argu­ment Zeichen kann eine Zif­fer (Zahl mit 1 Zeichen) oder ein in Anführungsze­ichen einge­fasster Text der Länge 1 sein. Zif­fern kön­nen ohne die Gänse­füßchen eingegeben wer­den. Anpas­sun­gen auf mehrere (zusam­men­hän­gende) Zeichen sind leicht möglich. Das Argu­ment rng ist der zu bew­er­tende Bere­ich, der zusam­men­hän­gend ist und min­destens 1 Zelle umfasst. Soll­ten Sie Leerze­ichen zählen wollen beacht­en Sie bitte, dass führende und anhän­gende Leerze­ichen vor der Auswer­tung ent­fer­nt wer­den.

Schreiben Sie diese Funk­tion in ein all­ge­meines Mod­ul, nicht in das Mod­ul ein­er Mappe oder Arbeits­blattes. Mehr dazu lesen Sie hier nach.