Dim i As Integer
Dim intAnzahl As Integer
 
    For i = 1 To 15
        If Cells(i, 2) Like Cells(1, 1) Then intAnzahl = intAnzahl + 1
    Next
 
    Select Case intAnzahl
        Case 3
            '...
        Case 4
            '...
        Case 7
            '...
        Case Else
            '...
    End Select