Szia!

 

Ha sok cella van, akkor egy saját függvény használ csak:

 

Function BetuSzamolo(ByRef hol As Range, ByVal mit As String) As Integer
Dim sor As Range, szoveg As String
If hol.Columns.Count > 1 Then
   For Each sor In hol.Rows
       szoveg = szoveg & Join(Application.Transpose(Application.Transpose(sor.Value)), ";")
   Next
Else
   For Each sor In hol.Cells
       szoveg = szoveg & sor.Value
   Next
End If
BetuSzamolo = Len(szoveg) - Len(Replace(szoveg, mit, ""))
End Function

 

Ezt beírhatod a munkalap kódlapjára: lapfül - jobb egérgomb - kód megjelenítése - bemásolás.

A cellában a képlet = betuszamoló(tartomány, betű idézőjelben)

 

A második hozzászólásodban az ÉRTÉK hiba szerintem csak elírás miatt lehet.

 

Üdv.