Office: (Office 2007) Farbige Zellen in Zeilen addieren

Hallo Zusammen,

ich finde überall nur Tutorials wie man farbige Zellen in Spalten zählt. Ich finde nirgendwo eine Hilfe wenn die farbigen Zellen je Zeile gezählt werden müssen. Hat irgendwer eine Idee dazu ?? Danke.

 

Hola,
einfacher wäre es du vergibst für jeden Abwesenheitsgrund einen Buchstaben und lässt die Zellen per bedingter Formatierung färben.
Die Buchstaben kann man dann zählen.
Gruß,
steve1da

 

[
steve1da[/QUOTE]
Ja, würde ich gern, aber mein Chef möchte da nichts drin stehen haben, bzw. die Stunden die dies bedeutet eintragen... leider

 

Das auslesen von Farben ist ziemlich aufwändig und in deinem Fall wohl nur mit VBA machbar. Ob du das dann verstehst und anpassen kannst ist nochmal etwas anderes. Ich kann zwar kein VBA bin mir aber sicher, dass wenn jemand nicht die identische Farbe benutzt, dass dann fehlerhafte Ergebnisse rauskommen. Das passiert bei Buchstaben nicht. Das solltest du deinem Chef so sagen. Oder halt VBA lernen. Bei der Methode im anderen Thread mit dem Zelle.Zuordnen besteht meines Wissens nach das Problem, dass das ändern eine Farbe nicht direkt auch die Zahl ändert. Ein weiterer potenzieller Fehler der entsteht.

 

Hallo,

du hast ja bereits eine Excel4.0-Formel "Farben" im Namensmanager definiert. Diese fragt die Zellhintergrundfarbe der linken Nachbarszelle ab:
=ZELLE.ZUORDNEN(63;INDIREKT("ZS(-1)";FALSCH))
Dabei heißt "Z" ohne Zahl in Klammern, dass es sich von der aktuellen Zelle (in der der Abfragename steht) aus gerechnet um die gleiche Zeile handelt, und S(-1) heißt, die Zelle befindet sich 1 Spalte links davon.

Folglich muss eine entsprechende Formel, die auf die jeweilige Zelle oberhalb zugreift, um die Hintergrundfarbe von dieser zu ermitteln, lauten:
=ZELLE.ZUORDNEN(63;INDIREKT("Z(-1)S";FALSCH))
Dieser Formel musst du im Namensmanager einen anderen Namen verpassen, zB. Farben1ZeileOberhalb

 

Anton Exl

das habe ich gemacht, aber es taucht nach wie vor eine Zahl 0 bei der Zählung auf....oder habe ich das falsch gemacht?

 

Hallo,

du hast ja die Formel hinter der Variablen "Farben" geändert, sodass sie sinnlos wurde. Ich habe sie wieder zurückgestellt auf ihren ursprünglichen Inhalt.
In der beiliegenden Datei habe ich dir die Farbabfrage für die "Bäcker"-Zeile in Zeile 7 eingefügt.
Um die Farbcodes für die anderen 3 Zeilen (Müller,Meier,Schulz) abzufragen, musst du weitere 3 Zeilen einfügen mit entsprechend angepassten Farbabfrageformeln (die zuerst im Namensmanager erstellt werden müssen, um sie dann im Arbeitsblatt einfügen zu können).

 

da ich insgesamt 200 Mitarbeiter so bearbeiten muss... muss ich dann unter jedem Namen eine leere Zeile für die Berechnung einfügen?

 

Hallo,

ich habe in der beiliegenden Datei in deinem Originalarbeitsblatt "Tabelle1" eine Hintergrundfarbenzählung auf Basis von Excel4.0-Makrofunktionen eingefügt mit Hilfe der beiden Namen "Farben1ZeileOberhalb" (in AG2:AJ2) und "Farben4ZeilenOberhalb" (in B7:AF10) und ferner mit der Arbeitsblattfunktion =ZÄHLENWENN($B7:$AF7;AG$2) (im Bereich AG7:AJ10).

Da dieses Modell angesichts deiner 200 Mitarbeiter etwas illusorisch ist, habe ich eine Kopie im Arbeitsblatt "Tabelle1 (2)" erstellt und dort ausschließlich im Bereich AG3:AJ6 die benutzerdefinierten VBA-Funktionen
=HintergrundFarbenZählen($B3:$AF3;AG$1)
eingefügt. Diese benötigt 2 Parameter. Der erste Parameter enthält den Monatsbereich des Mitarbeiters (also im Fall von Müller ist das $B3:$AF3) und der zweite Parameter enthält die Zelle mit der Hintergrundfarbe, die gezählt werden soll (also im Fall von gelbem Hintergrund AG$1)
Diese benutzerdefinierte VBA-Funktion "HintergrundFarbenZählen(KritBereich As Range, VglZelle As Range) As Long" befindet sich im allgemeinen Codemodul "Modul1" und sieht wie folgt aus:

Code:

'Ermittelt die Hintergrundfarbe der VglZelle und
'zählt, wie oft diese Hintergrundfarbe in den Zellen von KritBereich enthalten ist
'
Public Function HintergrundFarbenZählen(KritBereich As Range, VglZelle As Range) As Long
   Dim Zelle As Range
   Dim Farbe As Long, Anz As Long
  
   Farbe = VglZelle.Interior.Color
   Anz = 0
   For Each Zelle In KritBereich.Cells
     If Zelle.Interior.Color = Farbe Then Anz = Anz + 1
   Next Zelle
   HintergrundFarbenZählen = Anz
  
End Function

Sie ist im VBA-Editor über die Tastenkombination Alt+F11 erreichbar und kann von dort per Copy+Paste in eine andere Excel-Datei wieder in ein allgem.Codemodul kopiert werden. Du kannst sie aber auch von diesem Forum in ein allg.VBA-Codemodul kopieren.

Darüber hinaus sind noch 2 weitere Funktionen enthalten, die ähnlich funktionieren, was ich hier nicht beschreiben möchte (Kommentar ist im VBA-Editor eh enthalten).

 

wow, vielen Dank... das muß ich jetzt mal in Ruhe lesen und schauen ob ich es verstehe. 1000 Dank