Itt egy másik megoldás:

 

Function SzűrtRekordokSzáma() As Integer
Dim rng As Range

 

  Set rng = ActiveSheet.AutoFilter.Range
  SzűrtRekordokSzáma = rng.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1

 

End Function

 

 

Sub SzűrésEredménye()

 

  MsgBox "Szűrt rekordok száma: " & SzűrtRekordokSzáma

 

End Sub