Option Explicit
Public Function lofasz()
   Dim cell As Object
   Dim cellCount As Integer
   Dim numCount As Integer
   Dim textCount As Integer
   Dim emptyCount As Integer
   Dim notemptyCount As Integer
   
     
   cellCount = 0
   numCount = 0
   textCount = 0
   emptyCount = 0
   notemptyCount = 0
   
   
   For Each cell In Selection
       cellCount = cellCount + 1
       If (IsNumeric(cell.Value) And Len(cell.Value) > 0) = True Then
           numCount = numCount + 1
       End If
       
       If (Application.WorksheetFunction.IsText(cell.Value) And Len(cell.Value) > 0) = True Then
           textCount = textCount + 1
       End If
       
       If IsEmpty(cell.Value) = True Then
           emptyCount = emptyCount + 1
       End If
       
       notemptyCount = cellCount - emptyCount
       
   Next cell
   MsgBox cellCount & " cella lett megvizsgálva" & vbNewLine & numCount & " cellában van szám" & _
   vbNewLine & textCount & " cellában van szöveg" & vbNewLine & emptyCount & " cella üres" & _
   vbNewLine & notemptyCount & " cella nem üres."
End Function