Vorab:
Dimensioniere "Zelle" als Variant.
Passe den Bereich in "J" (hier "J1:J10") an.
"Monat" ist der Wert, der aus deiner Combobox ausgewählt wird.
########################################################
For Each Zelle In .Range("J1:J10")
If CStr(Month(Zelle.Value)) = Monat.Text And _
Zelle.Offset(0, 1) = "offen" Then
n = n + 1
End If
########################################################
Der Code muss ergänzt werden um die Aktion, wo das n eingetragen werden kann, z. B. das "Caption" eines Beschriftungsfeldes für "offen",
dann alles noch eimal für "erledigt".
die "Each"-Schleife dann noch schließen.
|