Office: (Office 2010) Farbe zählen und aufsummieren

Hallo zusammen,

ich habe folgendes Problem, ich habe eine Tabelle von A - AB mit insgesamt 260 zeilen.

Einige davon sind mit grün markiert - am Ende der Tabelle will ich Spaltenweise zählen wie viele grüne Felder enthalten sind.

Im Internet habe ich gefunden:
2.Wechseln Sie in den Tab "Formeln" und klicken Sie auf "Namen definieren".
3.Möchten Sie stattdessen die Hintergrundfarbe der Zelle zählen, müssen Sie hier die Eigenschaft "=ZELLE.ZUORDNEN(63;INDIREKT("ZS(-1)"*wink.gif*)" einfügen. Speichern Sie die Eingaben mit "OK".
4.Fügen Sie jetzt in der Hilfsspalte B1 die Formel "=Farbe" ein und kopieren Sie sie herunter, bis Sie das Ende der farbigen Zellen erreicht haben.
5.Sie sehen in der Hilfsspalte nun die Zahlen für der jeweiligen Farben (3 ist z. B. rot). Um eine bestimmte Farbe zu zählen, nutzen Sie nun die Formel "=ZÄHLENWENN(B:B;3)" – die "3" definiert hier die Farbe, die gezählt werden soll.

Aber damit kann ich ja nichts anfangen da ich ja nicht 27 Hilfsspalten einfügen kann...

Da muss es doch etwas einfacheres geben oder ?

Vielen Dank für eure Mithilfe

:)

 

Hola,

sind die Werte über die bedingte Formatierung gefärbt, oder per Hand?

Gruß,
steve1da

 

Hi,

per Hand

 

Hola,

dann müssen da wohl die VBA Profis ran.

Gruß,
steve1da

 

Danke für die ernüchternden Worte :-D

Drecks Excel...

Die brauchen ein Funktion "ZähleWennFarbe"... Fertig :-D

Ok dann an die VBA´ler von Euch könnte mir jemand den Code dafür geben? Ist das viel Arbeit? Bin mit Programmieren nicht so bewandert *Smilie

Trotzdem Danke für den Hinweis
Gruß

 

Hallo,

hättest du die Energie, die du für das Fluchen aufgewendet hast, für kreatives Denken verwendet, dann hättest du auf die Idee kommen können, das du anstatt einer Hilfsspalte auch eine Hilfstabelle auf einem separatem Tabellenblatt hättest verwenden können.

Anbei eine Lösung mit einem Hilfs-Tabellenblatt. Somit nur einmalige Definition des Bereichs im Namensmanager.

Das Zählen hab ich mir bei diesem Beispiel gespart.

Das Tabellenblatt T1 enthält die farbigen Zellen
Das Tabellenblatt T2 zeigt die ausgelesenen Farbwerte

 

Hallo Andre_bas

warum schimpfst du auf Excel, das ist mehr als ungerecht!

Du kannst z. B. in Zeile 262 die Summen deiner gefärbten Zeilen ausgeben

PHP:

         Public Sub FarbeZaehlen()

Dim rZelle   As Range
Dim lZeile   As Long
Dim iSpalte  As Integer
Dim iFarbe   As Integer
Dim iAnzahl  As Integer

With ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen!
'        die Farbe der ersten gefärbten Zelle speichern
For Each rZelle In Range("A1:B260")
If rZelle.Interior.ColorIndex <> xlNone Then
iFarbe = rZelle.Interior.ColorIndex
Exit For
End If
Next rZelle
'        den Ausgabebereich der Farb-Summen löschen/leeren
.Range("A262:AB262").ClearContents
'        die farbigen Zellen spaltenweise zählen
For iSpalte = 1 To 28 ' = A bis AB
For lZeile = 1 To 260
If .Cells(lZeile, iSpalte).Interior.ColorIndex = iFarbe Then
iAnzahl = iAnzahl + 1
End If
Next lZeile
'            die gezählten Werte ausgeben
.Cells(262, iSpalte).Value = iAnzahl
iAnzahl = 0  den Zähler wieder leeren/löschen
Next iSpalte
End With

End Sub


 

Hallo Andre_bas

hier noch zur Veranschaulich Machung meine Test-Mappe.

Gruß Peter

 

Drecks Excel find ich gut …
Besser hätte ich es gefunden wenn Du in der Lage wärst Zählenwennfarbe in eine Suchmaschine Deiner Wahl einzugeben.
Soll ich Dir den Link geben oder schaffst Du das selbständig?

Gruß Ralf

 

Hallo zusammen,

wie addiere ich einzelne Zellen in einer Zeile , die durch eine Bedingte Formatierung - Zählenwenn- farblich hinterlegt wurden ?

Bitte um Hilfe

 

benutze Zählenwenns() und die Bedingung für die bedingte Formatierung.

 

Hallo Toe,

warum fängst du nicht einen neuen Beitrag an? Wenn sich jeder an bestehende Beiträge mit vergleichbaren Fragen anhängt, fördert das nicht gerade die Übersichtlichkeit des Forenarchivs.
Auswertungen nach Zellformaten sollte man grundsätzlich vermeiden.

 

Hallo Klaus-Dieter,

habe ein neues Thema erstellt.

Danke

 

Hallo Community *wink.gif*

Noch ein Beispiel!

Gruss Poltergeist *rolleyes.gif*

Code:

Farbe zählen
Modus=0
Farbindex=3
Bereich=A2:A5
Code:

Farbe Addieren
Modus=1
Farbindex=3
Bereich=A2:A5
Code:

Einzufügen
Alt+F11/Projectexplorer/Allgemeines Modul

Code:

 

Hallo

Noch eine Möglichkeit. Benutzerdeffinierte Funktion in ein Modul und in der Ergebniszelle einsetzen.

Code:

mfg, GraFri