Tælle celler som indeholder tekst, baseret på tekstens længde

Du kan tælle antallet af tegn i en celle ved at bruge =længde()

Hvis du konstruerer en formel der siger noget i stil med: hvis antallet af tegn er større end 3 så et eller andet...

Det kommer jo an på hvad du gerne vil have af svar

En ændring af din User Defined Function ColorTextCount vil kunne gøre det.
Nu tælles alle celler der har et skilletegn / som 2 eller mere.
dvs at
ADF tælles som 1
ADF/TRE tælles som 2
ADF/TRE/YCC tælles som 3 osv.
Hvis ikke du udfylder funktionens 3. parameter (stDelim) vil den automatisk bruge / som skilletegn.


Public Function ColorTextCount(rRange As Range, rColor As Range, Optional stDelim As String = "/") As Double
Dim rCell As Range
Dim dCount As Double
dCount = 0
    Application.Volatile
    For Each rCell In rRange
        If IsNumeric(rCell.Value) = False And _
        IsError(rCell.Value) = False And _
        rCell.Interior.ColorIndex = rColor.Interior.ColorIndex Then
            dCount = dCount + (1 + UBound(Split(rCell.Value, stDelim)))
        End If
    Next rCell
    ColorTextCount = dCount
End Function

Tak til Bak. Det var lige præcis det jeg var efter.
Jeg takker, bukker, nejer og alt det andet.

Vi du skrive et svar?

jeps, her er det !