Jeg har et stort ark, hvor jeg skal have en formel til at tælle hvor mange celler, hvor der stå kaffe, og ikke hvor mange gange der står kaffe. Et af områderne er B3:P32 Når jeg bruger nedestående formel, så tæller den kun hvor mange gange der står kaffe, men ikke i hvor mange celler. Det skyldes flere cellerne er flettet. =TÆL.HVIS(B3:P32;"=kaffe")
Når to celler er flettet sammen, så tæller formlen det kun for 1, men der har jeg brug for den tæller det for 2, fordi det er to celler der er flettet sammen hvor der står "kaffe". Andre steder er det tre celler der er flettet sammen hvor der står "kaffe", som så skal tælle for 3.
HVIS du er ude efter af finde alle forekomster og tælle HVER gang der står Kaffe i en celle, kan du benytte en Matrixformel: =SUM((LEN(E5:E7)-LEN(SUBSTITUTE(E5:E7;"Kaffe";"")))/5) =SUM((LÆNGDE(E5:E7)-LÆNGDE(UDSKIFT(E5:E7;"Kaffe";"")))/5)
HUSK for en sikkerheds skyld tast CTRL+SHIFT+ENTER for at godkende indtastning, så laves der en MATRIX formel, som har {} omkring. I den NYESTE version (i hvert fald 365 installeret office) er det ikke nødvendigt...
Tak Store-Morten, nu forstår jeg vist hvor vi skal hen.
Så kan man jo gribe til lidt programmering...
Opret et modul, indsær koden herunder i modulet. Husk: filen skal gemmes som .XLSM eller .XLSB
'****************************************** Function CountCellsContainingText(SelectArea As Range, FindText As String) Dim lngCounter As Long Dim itmCell As Range For Each itmCell In SelectArea.Cells If InStr(LCase(itmCell.Value), LCase(FindText)) > 0 Then lngCounter = lngCounter + itmCell.MergeArea.Cells.Count End If Next CountCellsContainingText = lngCounter End Function '******************************************
I en celle hvor du gerne vil have antallet skriver du så: =CountCellsContainingText(E2:K8;"Kaffe")
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.