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
Hallo,
Färbung durch bedingte Formatierung?
Dann kennst du doch die Bedingung(en)!! ------> Zählenwenn(s) und deine Bedingung(en).
Sigi
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???
Moin,
Zitat: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.
Hola,
lad an Stelle des Bildchens eine Excel-Beispieldatei mit der bed. Formatierung hoch.
Gruß,
steve1da
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.
Hallöchen,
Zitat: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?
… 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 …
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