Nicht farbige Zellen zählen

[halihalöle]

Hallo zusammen,

ich benötige eure Hilfe. Wie kann man in angehängter Excel die nicht farbigen Zellen im Bereich E6 bis Q205?

Vielen Dank!

[Käpt'n Blaubär]

Hallo,

ergänzen Sie sinnvoll:

ich benötige eure Hilfe. Wie kann man in angehängter Excel die nicht farbigen Zellen im Bereich E6 bis Q205?

???

[MisterBurns]

Ich würde jetzt mal sagen

Code:

=ANZAHLLEEREZELLEN(E6:Q205)

denn - zumindest meiner Interpretation nach - ist eine Zelle dann nicht farbig, wenn sie leer ist.

[Klaus-Dieter]

Hallo,

versuche es mal damit:

Code:

Option Explicit

Sub ohne_farbe()
   Dim rngBereich As Range
   Dim rngZelle As Range
   Dim intAnz As Integer
   Set rngBereich = Range("E6:Q205")
   For Each rngZelle In rngBereich
       If rngZelle.DisplayFormat.Interior.Color = 16777215 Then intAnz = intAnz + 1
   Next rngZelle
   MsgBox intAnz
End Sub

Auch hier der Hinweis, dass man nach Zellformaten nicht auswerten sollte.

[halihalöle]

Hallo,

ergänzen Sie sinnvoll:

???

...zählen. Sorry!

[halihalöle]

Hallo,

versuche es mal damit:

Code:

Option Explicit

Sub ohne_farbe()
   Dim rngBereich As Range
   Dim rngZelle As Range
   Dim intAnz As Integer
   Set rngBereich = Range("E6:Q205")
   For Each rngZelle In rngBereich
       If rngZelle.DisplayFormat.Interior.Color = 16777215 Then intAnz = intAnz + 1
   Next rngZelle
   MsgBox intAnz
End Sub

Auch hier der Hinweis, dass man nach Zellformaten nicht auswerten sollte.

Danke Klaus-Dieter, perfekt!