Formel til vb

formelen er i "F5"

Sub tælhvis()
Dim tæl As Integer
søg = Range("d5") 'celle med søgeværdi
værdier = Range("f16:iv1515")
Range("f5:iv5").ClearContents
Range("d1").ClearContents
    For j = 1 To 10
    tæl = 0
        For i = 1 To UBound(værdier)
        If søg = værdier(i, j) Then
        tæl = tæl + 1
        End If
        Next i
    If tæl = 0 Then
    Cells(5, 5 + j) = ""
    Else
    Cells(5, 5 + j) = tæl
    End If
    Next j
End Sub

Rettelse:

Sub tælhvis()
Dim tæl As Integer
søg = Range("d5") 'celle med søgeværdi
værdier = Range("f16:iv1515")
Range("f5:iv5").ClearContents
Range("d1").ClearContents
    For j = 1 To 251
    tæl = 0
        For i = 1 To UBound(værdier)
        If søg = værdier(i, j) Then
        tæl = tæl + 1
        End If
        Next i
    If tæl = 0 Then
    Cells(5, 5 + j) = ""
    Else
    Cells(5, 5 + j) = tæl
    End If
    Next j
End Sub

Virker kom med svar

:-)