Farbige Zellen zählen ???

[jokerjo1000]

Hallo zusammen,
leider bekomme ich mein Problem nicht gelöst  :20:
In meiner Beispieldatei ist ein Monat aufgelistet wo ich über eine bedingte Formatierung einige Zellen hellblau eingefärbt habe.
Jetzt würde ich ganz gerne unter der Monatstabelle für den jeweiligen Tag die Summe der jeweils eingefärbten Zellen zusammenrechnen lassen.
Dafür bin ich aber nicht Fit genug und brauche eure Hilfe. Gibt es vielleicht eine Möglichkeit die Anzahl der eingefärbten (hellblau) Zellen zu zählen und mir dann unter den Tagen anzeigen zu lassen?

Bin echt für jede Hilfe dankbar 

[Sigi.21]

Hallo,

Färbung durch bedingte Formatierung?
Dann kennst du doch die Bedingung(en)!!   ------>    Zählenwenn(s) und deine Bedingung(en).

Sigi

[jokerjo1000]

Nicht ganz so einfach !!!

Das hier wäre meine Bedingung
SVERWEIS(E$5;Plan10;1;0)
Wie sollte man daraus die Zählenwenn Formel anwenden???

[WillWissen]

Moin,

Wie sollte man daraus die Zählenwenn Formel anwenden???

wie soll man aus deinen Angaben überhaupt etwas ableiten? Stell bitte eine Beispieldatei (.xlsx - keine Bildchen!!) mit deinen bisherigen Formeln (einige wenige Datensätze genügen) vor.

[steve1da]

Hola,

lad an Stelle des Bildchens eine Excel-Beispieldatei mit der bed. Formatierung hoch.

Gruß,
steve1da

[Klaus-Dieter]

Hallo,

wenn es ein Makro sein darf, kannst du das dieser Art auswerten:

Code:

Sub FarbeZaehlen()
    Dim lngZeile As Long
    Dim intSpalte As Integer
    Dim lngFarbWe As Long
    For lngZeile = 2 To 28
        lngFarbWe = 0
        For intSpalte = 5 To 7
            lngFarbWe = lngFarbWe + Cells(lngZeile, intSpalte).DisplayFormat.Interior.Color
        Next intSpalte
       
    Next lngZeile
End Sub

Das muss dann auf deine Gegebenheiten angepasst werden.

[schauan]

Hallöchen,

lngFarbWe = lngFarbWe + Cells(lngZeile, intSpalte).DisplayFormat.Interior.Color

für mich sieht das so aus, als würden die Farbwerte gezählt und nicht die Anzahl irgendwie gefärbter Zellen?

[RPP63]

… und wenn man erst mal weiß, dass ein "reines" Weiß (rbg(255, 255, 255)) den Zähler um schlappe 16.777.215 hochzählt, könnte ein "ungenaues" Ergebnis heraus kommen …

[Klaus-Dieter]

Hallo,

hier das Makro auf das Bild vom TE angepasst. Möglicherweise passt die Farbnummer nicht.

Code:

Sub FarbeZaehlen()
    Dim lngZeile As Long
    Dim intSpalte As Integer
    Dim lngFarbWe As Long
    For intSpalte = 5 To 35
        lngFarbWe = 0
        For lngZeile = 6 To 20
            If Cells(lngZeile, intSpalte).DisplayFormat.Interior.Color = 14857357 Then
                lngFarbWe = lngFarbWe + 1
            End If
        Next lngZeile
        Cells(22, intSpalte) = lngFarbWe
    Next intSpalte
End Sub