Fejl i tæl hvis function

Måske denne løser problemet:

Public Function Tæl_Hvis_Ikke_Skjult(Område As Range, Kriterie As String)
Dim c As Range
    For Each c In Område.Cells
        If Not c.EntireRow.Hidden And c = Kriterie Then
          Tæl_Hvis_Ikke_Skjult = Tæl_Hvis_Ikke_Skjult + 1
        End If
    Next
End Function

Prøv at fjerne alle  æ, ø, å

Desværre fejlen er stadig den samme.

Jeg får ikke din fejl. Kan du lægge dit ark op på gupl.dk?

Fejlen kommer kun efter at jeg har kørt denne makro hvor der indsættes et avanceret filter i mit dataark.

Når jeg bruger autofilter opdataeres din optælling uden fejl.

Kan fejlen stamme fra noget i nedenstående?



Private Sub cmdSøg2K_Click()

    If Application.CountA(Range("SøgOmr1")) = 0 Or Application.CountA(Range("SøgOmr2")) = 0 Then
       
        Dim msg1, Style1, Title1
        msg1 = "Indtast venligst mindst 1 kriterie i hver søgerække!"
        Style1 = vbOKOnly + vbQuestion
        Title1 = "Opret søgekriterie!"
        response = MsgBox(msg1, Style1, Title1)
        Exit Sub

    End If
   
    Sheets("Data").Select
    ThisWorkbook.Worksheets("Data").Range("Tabel2[[#Headers],[M-nr]]").Activate
    ThisWorkbook.Worksheets("Data").Range("Tabel2[#All]").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange _
        :=Range("Søg2K"), Unique:=False
    SendKeys "^{home}"
   
End Sub