Option Explicit
Sub makro()
Dim Namen() As String, anzNullen() As Integer, anzZahlen() As Integer
Dim i As Integer, a As Integer, boolName As Boolean, z As Integer, Zeile As Integer
ReDim Namen(0) As String
ReDim anzNullen(0) As Integer
ReDim anzZahlen(0) As Integer
For i = 1 To 100
'Namen einlesen in den Array 'Namen'
boolName = False
For a = 1 To UBound(Namen)
If Sheets("Tabelle1").Cells(i, 1).Value = Namen(a) Then boolName = True
Next a
If Not boolName Then
ReDim Preserve Namen(UBound(Namen) + 1) As String
Namen(UBound(Namen)) = Sheets("Tabelle1").Cells(i, 1).Value
End If
'zählen
ReDim Preserve anzNullen(UBound(Namen)) As Integer
ReDim Preserve anzZahlen(UBound(Namen)) As Integer
z = 1
Do While z <= UBound(Namen)
If Namen(z) = Sheets("Tabelle1").Cells(i, 1).Value Then Exit Do
z = z + 1
Loop
If Sheets("Tabelle1").Cells(i, 10) = 0 Then
anzNullen(z) = anzNullen(z) + 1
ElseIf Sheets("Tabelle1").Cells(i, 10) > 0 Then
anzZahlen(z) = anzZahlen(z) + 1
End If
Next i
'in Tabelle2 einschreiben
Zeile = 1
For i = 1 To UBound(Namen)
Sheets("Tabelle2").Cells(Zeile, 1).Value = "Anzahl " & Namen(i) & " = 0"
Sheets("Tabelle2").Cells(Zeile, 2).Value = anzNullen(i)
Zeile = Zeile + 1
Sheets("Tabelle2").Cells(Zeile, 1).Value = "Anzahl " & Namen(i) & " > 0"
Sheets("Tabelle2").Cells(Zeile, 3).Value = anzZahlen(i)
Zeile = Zeile + 1
Next i
End Sub
...vor End Sub soll noch folgendes passsieren:
A B
Anzahl Gruppen gesamt ZÄHLENWENN(A26:A33;">0/2")
Anzahl Gruppen mit = > ZÄHLENWENN(C26:C33;">0")
Anzahl Gruppen mit = 0 ZÄHLENWENN(B26:B33;">0")
Wobei der Bereich A26:A33 auch A9077:A9122 sein kann oder jeder andere. B und C genauso.