veja se é isso:

Function CountCcolor(range_data As Range, criteria As Range, criteria2 As String) As Long
Dim datax As Range
Dim xcolor As Long
Dim xtexto As String
xcolor = criteria.Interior.ColorIndex
xtexto = criteria2
For Each datax In range_data
If datax.Interior.ColorIndex = xcolor And datax.Value = xtexto Then
CountCcolor = CountCcolor + 1
End If
Next datax
End Function

testei dessa forma:

=CountCcolor(A1:A10;C1;"teste")

veja se é isso:

Function CountCcolor(range_data As Range, criteria As Range, criteria2 As String) As Long
Dim datax As Range
Dim xcolor As Long
Dim xtexto As String
xcolor = criteria.Interior.ColorIndex
xtexto = criteria2
For Each datax In range_data
If datax.Interior.ColorIndex = xcolor And datax.Value = xtexto Then
CountCcolor = CountCcolor + 1
End If
Next datax
End Function

testei dessa forma:

=CountCcolor(A1:A10;C1;"teste")

Muito obrigado pela resposta!

Era isso mesmo que eu precisava, porém se eu eu inserir o texto e depois mudar a cor da célula, ele não conta a célula.
Teria como mudar isso?

Isso eu não responder, sei pouco de VBA. Vamos ver se o pessoal que manja responde.

A função somente é calculada/recalculada quando há uma alteração que "gere" o evento de calculo (calculate), porem a inclusão/alteração de uma cor de fundo não gera essa atividade.
Então pode-se, a cada alteração de cor pressionar F9, isso força o calculo e a contagem será alterada; ou talvez no evento de alteração de seleção forçar esse recalculo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Nota: a cada alteração de célula/coluna a planilha será calculada, dependendo do tamanho/formulas envolvidas poderá gerar uma lentidão na mesma.