wie kann ich aus einer Excelmappe mit einer Formel alle Zellen zählen die Grün markiert sind?
Danke LG
Sub Urlaub()
Dim zelle As Range
Dim zaehler As Long
For Each zelle In Range("A4:AI34")
If zelle.Interior.Color = Range("A35").Interior.Color Then'--vergleicht Zellfarbe mit _
Zellfarbe(A35)
zaehler = zaehler + 1
End If
Next
MsgBox zaehler & " Urlaubstage", vbInformation, "Verplante Urlaubstage"
End Sub