Office: (Office 2007) Zellenfarbe mit bedingter formatierung zählen

Hilfe,

hallo zusammen

ich versuche per Makro farbige Zellen zu zählen per Makro

1. die zellen wurden per bedingte Formatierung eingefärbt
2. diese Formatierung wiederholt sich alle 3 Zellen
3. als Indikator gilt pro Spalte immer der gleiche Wert

habe versucht die funktion der bedingten Formatierung zu zählen komme aber auf keinen grünen Zweig.

habe zur Erklärung eine Musterdatei dazu geladen.

Hoffe dort konnte ich es erklären

danke vorab

:)

 

Hallo,

diese Formel nach rechts und unten kopieren.
Code:

Oder mit ZÄHLENWENNS()
Code:

 

Hi,

dazu kann man den Befehl DisplayFormat mit der entsprechenden Eigenschaft - in deinem Beispiel Interior.Color - verwenden:

Code:

 

\@Jonas danke für die schnelle antwort funktioniert ist aber viel Arbeit
@Kartin danke für die schnelle Antwort funktioniert aber nicht, bin wieder zu dumm dazu, habe das als Modul eingefügt und beim Starten kommt dann immer Fehlercode 438 Objekt unterstützt die Eigenschaft der Methode nicht.

was hab ich da wieder falsch gemacht *Smilie

gruß Marcus

und nochmals Danke für die Hilfe

 

Falsch ist es, die bedF zu zählen/auszuwerten, anstelle eine Spalte vorzusehen, die die Bedingung enthält, damit man 1) die bedF damit erstellen und 2) sie damit auswerten kann!

Alles andere sind unangemessene Klimmzüge.

 

Hallo Marcus,

der Quelltext von Karin funktioniert einwandfrei.

 

Hi Marcus,

In deiner hochgeladenen Mappe funktioniert mein Code völlig korrekt.

 

Hallo Karin,

der Code funktioniert korrekt.
Ich meine, die Funktion Range.DisplayFormat gibt es erst seit Excel 2010.
Der TE hat aber die Version 2007.

Gruß
Aloys

 

Hallo Aloys,

stimmt, darauf hatte ich nicht geachtet.

 

Hi Aloys, Hi Marcus,

stimmt, das gab es noch nicht in Excel 2007. In diesem Fall müsste man es über die Erfüllung der Bedingung lösen:

Code:

 

hallo zusammen danke für die umfangreiche Hilfe.

in der arbeit haben wir 2010 da gehts zuhause 2007 da gings nicht.

jetzt zum Code @Karin:

wenn ich es richtig verstanden habe geht er nur ob ein Eintrag da ist, egal welcher und egal welche Farbe?

Sub FarbeZaehlen()
Dim lngZeile As Long
Dim intSpalte As Integer
For intSpalte = 2 To 4 `Spalte`
For lngZeile = 5 To 13 `Zeile`
Select Case Cells(lngZeile, 1).Value
Case "A" `Zählreihenfolge in 3er Schritten`
If Cells(lngZeile, intSpalte) "" Then _
Cells(1, intSpalte) = Cells(1, intSpalte) + 1
Case "B"
If Cells(lngZeile, intSpalte) "" Then _
Cells(2, intSpalte) = Cells(2, intSpalte) + 1
Case "C"
If Cells(lngZeile, intSpalte) "" Then _
Cells(3, intSpalte) = Cells(3, intSpalte) + 1
End Select
Next lngZeile
Next intSpalte
End Sub

mein Problem ist das ich bei der Auswertung auch die Farben zählen muss.

Hierfür habe ich folgenden Code:

Sub rot_zaehlen()




anzahl = 0
For Each zelle In Range("as8:as2000")
If zelle.Interior.ColorIndex = 3 Then
anzahl = anzahl + 1
End If
Next zelle
End Sub

im Grunde funktionieren beide zusammen genauso wie ich es bräuchte, ich tue mich nur schwer mit einer übersichtlichen Auswertung.

Aus dieser Soll hervorgehen:

wieviele Fehler hat A in Spalte (Code von Karin)
wieviele Fehler werden mit Rot bewertet (Code von mir)
und jetzt kommt ich soll daraus ein Pareto machen wie ich die Fehler nach rot und Anzahl abstellen soll.

mein großes Problem ist ich komme zu den Ergbnissen, aber:

1: jeden tag kommen Spalten hinzu und weg
2: die übersichtliche Darstellung
3: das Pareto daraus Anzahl und Wertung oder Anzahl und Preis kein Thema, aber mit Farben?!?!? heul


Danke vorab

 

und mein Code kann nicht bedingte Formatierungen zählen ;(

 

Hi,

mein Code liest doch genau die Werte aus die du in deinem Beispiel in den Zellen B1: D3 eingetragen hast - hast du das mal verglichen? Ich verstehe also nicht, was du noch willst.

Deine bedingte Formatierung ist so eingerichtet, dass in den Zeilen, in denen in Spalte A ein "A" steht, sich die Zellen grün färben wenn ihr Inhalt > 0 ist. Dasselbe trifft auf die Zeilen zu in denen in Spalte A ein "B" steht, nur werden die Zellen gelb gefärbt (falls sie einen Wert > 0 haben) und die Zellen, in deren Zeile in Spalte A ein "C" steht, werden Rot gefärbt falls ihr Wert > 0 ist. Und genau nach diesem Prinzip liest mein Code die Erfüllung der Bedingungen aus und trägt die jeweilige Anzahl an erfüllten Bedingungen in Abhängigkeit von A, B und C in die Zeilen 1, 2 und 3 in der betreffenden Spalte ein - folglich liest er indirekt genau die Anzahl an Zellen entsprechend ihrer Färbung aus.