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!
|