Hallo Excel Experten,
in meinem Makro habe ich in Sheet"Listen eine Liste in Spalte "A"
In Sheet "Import" den Spalten "G&I" Werte.
Kann das untere Makro bitte dahin geändert werden, das wenn der Begriff aus Sheet "Listen" zum 4mal in Spalte "G" gefunden wird, das Ergebnis in Listen eingetragen wird und fortgefahren wird?
Also sowas wie einen Zähler.

Sub zaehle_0_0()
    Dim listenSheet As Worksheet
    Dim importSheet As Worksheet
    Dim listenRange As Range
    Dim importRange As Range
    Dim listenCell As Range
    Dim importCell As Range
    Dim name As String
    Dim count As Integer
    
    ' Set references to the worksheets and ranges
    Set listenSheet = ThisWorkbook.Worksheets("Listen")
    Set importSheet = ThisWorkbook.Worksheets("Import")
    Set listenRange = listenSheet.Range("A2:A" & listenSheet.Cells(listenSheet.Rows.count, "A").End(xlUp).Row)
    Set importRange = importSheet.Range("G1:I" & importSheet.Cells(importSheet.Rows.count, "G").End(xlUp).Row)
    
    ' Loop through the names in the Listen sheet
    For Each listenCell In listenRange
        name = listenCell.Value
        count = 0
        
        ' Loop through the names in the Import sheet
        For Each importCell In importRange.Columns(1).Cells
            If importCell.Value = name And importCell.Offset(0, 2).Value = "0-0" Then
                count = count + 1
            End If
        Next importCell
        
        ' Write the count to the Listen sheet
        listenCell.Offset(0, 1).Value = count
    Next listenCell
End Sub