Ikke helt - resultatet af ovenstående skulle gerne være
En celle (f.eks. AE7) med en celle med tallet 7 (antallet af A'er) En celle (f.eks. AF7) med en celle med tallet 6 (antallet af B'er) En celle (f.eks. AG7) med en celle med tallet 3 (antallet af C'er)
Jeg er opmærksom på, at formlerne i AE7,AF7 & AG7 skal skrives hver for sig :o]
Hej Jeg forstår ikke at du ikke vil bruge VBA og en bruger difineret funktion Eks Denne funktion tælle alleforekomster af en karekter Hvis en bruger ændre i en celle opdateres resultatet med det samme
Function TaelKarekter(EtOmrode As Range, FindTeks As String) As Integer Dim Cel As Range Dim MinTekst As String
TaelKarekter = 0
For Each Cel In EtOmrode MinTekst = Cel.Value If Len(MinTekst) > 0 And Len(FindTeks) = 1 Then For x = 1 To Len(MinTekst) If FindTeks = Mid(MinTekst, x, 1) Then TaelKarekter = TaelKarekter + 1 End If Next x End If Next Cel
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.
