Hallo,
ich habe einen Zellbereich F24:I29. In diesen Zellbereich können die Zellen grün markiert werden. Nun möchte ich prüfen, ob in jeder Reihe mindestens 2 Felder grün markiert wurden. Wenn das in jeder Reihe erledigt ist, ist die Bedingung geschafft, ansonsten nicht.

Gibt es einen Datentyp für eine Reihe? 

Der Code sieht aktuell wie folgt aus:
 

Function Bedingung3(Zellbereich As Range)
Dim Zelle As Range
Dim Reihe As Range
Dim Summe As Integer
Dim Endsumme As Integer

Summe = 0
Endsumme = 0

For Each Reihe In Zellbereich
 For Each Zelle In Reihe
  If Zelle.Interior.Color = vbGreen Then
   Summe = Summe + 1
  End If
  Next Zelle
  
  If Summe >= 2 Then
   Endsumme = Endsumme + 1
  End If
Summe = 0
Next Reihe

If Endsumme = 6 Then
 Bedingung3 = "X"
Else
 Bedingung3 = ""
End If
End Function

Vielen Dank schon mal!