Excel Formel: Zähle Texteinträge mit 2 Bedingungen

Option Explicit

Sub chkAuslastungStatus()
    Dim Bereich As Range                'ges. eingeblendeter Bereich  
    Dim FirstRow, LastRow As Long       'Erste/Letzte Reihe im sichtbaren Bereich  
    Dim iRow, iNAME As Long              'Laufvariablen  
    Dim NAME As String                'jeweiliger selektierter Inbetriebnehmer  
    Dim AnzSOLL, AnzIST As Integer      'Soll- und IST-Auslastung  
    
    
    'Ermittlung letzter benutzter und sichtbaren Zeile  
    LastRow = Worksheets("Planung").Cells(Rows.Count, "B").End(xlUp).Row  
    'Wenn Filterergebnis leer  
    If LastRow <= 9 Then Exit Sub
    
    'erste sichtbare Zeile  
    Set Bereich = Worksheets("Planung").AutoFilter.Range.SpecialCells(xlCellTypeVisible)  
    'Wenn Filterergebnis leer  
    If Bereich Is Nothing Then Exit Sub
    FirstRow = Bereich.Areas(2).Row


    For iNAME = 3 To 7   'Prüfe jeweiligen Namen aus der Vorgabe Zelle F3-F7  
        'Name im aktuellen Schleifendurchlauf  
        NAME = Worksheets("Planung").Range("F" & iNAME).Value  
        AnzSOLL = 0
        AnzIST = 0
        
        For iRow = FirstRow To LastRow         'Durchlaufe eingeblendeten Bereich  
            If Not Rows(iRow).Hidden Then   'Prüfe ob im Bereich die jeweilige Zeile eingeblendet ist  
                If Worksheets("Planung").Range("I" & iRow).Value = NAME Then  
                    AnzSOLL = AnzSOLL + 1
                    If Worksheets("Planung").Range("G" & iRow).Value = "abgeschlossen" Then  
                        AnzIST = AnzIST + 1
                    End If
                End If
            End If
        Next
        Worksheets("Planung").Range("G" & iNAME) = AnzSOLL & " / " & AnzIST  
    Next
    
End Sub