Antal gentagne KARAKTERER i en celle

=længde(A1)

Det var ikke lige det, jeg mente - måske forkert at kalde det for KARAKTERER - så istedet TEGN...

Jeg har en tekst - f.eks: "Iver Christensensvej 49" og ønsker optalt ANTALLET af TEGN i denne tekst - ANTAL TEGN - fra 1 til antalet af gentagne ANTAL TEGN.

Altså, hvor mange "e", "r" mv. der forefindes i tekststrengen.

Kan dette lade sig gøre uden brug af VBA

Der er ikke indbyggede funktioner til dette, men man kan lave sin egen

Den sættes i et modul

Public Function AntalTegn(Celle As String, Tegn As String) As Integer
    Dim I As Integer
    Application.Volatile
    For I = 1 To Len(Celle)
        If Mid(Celle, I, 1) = Tegn Then AntalTegn = AntalTegn + 1
    Next
End Function


kaldes med =AntalTegn(A1;B1)

hvor A1 er teksten og B1 er tegnet

denne tæller antal "e" i A1

=LÆNGDE(A1)-LÆNGDE(UDSKIFT(A1;"e";""))

Fantastisk, den havde jeg ikke regnet ud ;-))

Mange tak til jer begge.

Jeg har opdateret mit spørgsmål til 60 point - altså 30 point til jer hver især.

Men hvorledes gør jeg det?

Når kabbak har lagt et svar, markeres boxe og klik accepter

et svar ;-))