---

Hallo, 

hab mal wieder eine Frage zum Excel (2007).

Zur Projektplanung habe ich angefangen mir eine Excel-Tabelle zuerstellen mit Uhrzeit und Datum. Da ist dann immer ein Kästchen (= 1 Zelle) eine halbe Stunde. Je nach dem fülle ich mehr oder weniger Kästchen mit einer bestimmten Farbe aus.

Kann ich in einer Zelle eintragen lassen, wieviele Kästchen die gleiche Hintergrundfarbe haben ?  Dann könnte ich diese Anzahl nämlich mit 0,5 multiplizieren und wüßte dann, wieviele Stunden für ein Projekt gearbeitet wurde.

Oder gibt es andere schnell erstellbare Lösungen oder Ideen ?

Viele Grüße,  Silke

------------------

  

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

bedingteFormatierung.jpg

Hallo Silke,

Du kannst mit der Funktion =ANZAHL2(Zellen wählen) die Zellen zählen, in die etwas reingeschrieben wurde (Kreuz reinmachen anstatt Farbe). Dann multiplizieren und schon wars das.

Mit bedingter Formatierung kannst Du sogar die HIntergrundfarbe ändern lassen, wenn etwas drinsteht.

Gruß
Mörchen

[Diese Nachricht wurde von Mörchen am 11. Mrz. 2008 editiert.]

[Diese Nachricht wurde von Mörchen am 11. Mrz. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Silke,

vielleicht ist die Funktion ZELLE(Infotyp;Bezug) eine Lösung? Es ist nicht 1:1 auf Dein Vorhaben anwendbar; kannst ja mal in die Hilfe dazu gucken, vielleicht ist was Brauchbares drin.

Projektplanung mit Excel? Wenn's denn sein muss...

Frederik

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

es geht eigentlich nur darum, daß ich am Ende eine Projektes sehen kann, wieviele Stunden für welches Projekt gearbeitet wurde, damit man das dem Kunden gegenüber richtig in Rechnung stellen kann.

Viele Grüße,    Silke

------------------

  

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

IMHO könnte auch der Link hilfreich sein, meine aber so was ähnliches hier schon gelesen zu haben, bin aber faul um zu suchen ;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Silke,
Und? Ist Mörchens Lösungsweg jetzt einer, mit dem Du Dich anfreunden kannst?
Du gehst imho den schwierigeren Weg, wenn Du es bunt machst und dann das Bunte zählen willst.
Aber möglich ist der natürlich auch. Mit VBA kannst Du auf die Interior.ColorIndex zugreifen und zählst in einer Schleife alle Zellen, die diese Farbe haben.
Dabei müßtest Du vorher wissen, in welchem Bereich die gefragten Zellen liegen und was mit dem Ergebnis passieren soll (in Tabelle reinschreiben oder im VBA weiterverwerten?)
Deine Suchbegriffe für F1 wären also:

For...Next-Anweisung oder For Each...Next-Anweisung
dann
#If...Then...#Else-Anweisung
und
Interior.Color-Eigenschaft

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

'n Abend! 

Zitat:

---

Du gehst imho den schwierigeren Weg, wenn Du es bunt machst und dann das Bunte zählen willst.

---

Sauber :)! Mit Mörchens Ansatz kombiniert bringt mich das auf 'ne weitere Idee: Anstatt die Zellen bunt zu machen, lass' nen Wert eintragen, z. B. ein simples "x". Die Menge der x-e je Zeile lässt sich mit ANZAHL2() ermitteln. Anschließend formatierst Du die Zellen bedingt mit Schriftfarbe = Hintergrundfarbe der Zelle: Wenn Inhalt der Zelle = "x", dann mach's mir bunt, damit die x-e optisch nicht mehr vorhanden sind?! ANZAHL2 innerhalb der bedingten Formatierung ist auch denkbar...

[Edit: 

Zitat:

---

es geht eigentlich nur darum, daß ich am Ende eine Projektes sehen kann, wieviele Stunden für welches Projekt gearbeitet wurde, damit man das dem Kunden gegenüber richtig in Rechnung stellen kann.

---

*hüstel* Du möchtest dem Kunden die Stunden in Rechnung stellen? Dabei handelt es sich um eine einzige Zahl, nämlich: x Stunden. Die Rechnung ist (hoffentlich) nicht bunt. Und dafür diesen Aufwand? Je mehr Schnickschnack eingebaut ist, desto unübersichtlicher wird's. Damit wird es fehleranfälliger, ergo tendenziell weniger richtig. SCNR  /Edit]

Gruß,
Frederik

------------------
DIN1055.de  |  Lastannahmen für Anwender

[Diese Nachricht wurde von Paulchen am 11. Mrz. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja, deshalb wollte ich nur schnell die Anzahl der Zellen gleicher Farbe zusammenzählen lassen. Aufwändiger will ich das gar nicht machen.
Wenn ich da dann als anfangen muß, einen Buchstaben hineinzuschreiben und das dann immer bedingt formatieren muß, dann ist mir das viel zu aufwändig.

Vielen Dank füre eure Antworten.

Viele Grüße,  Silke

------------------

  

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sorry, aber wir reden hier von einem Tabellenkalkulationsprogramm.
Schreib einen Wert in die Zelle, Zähle wenn in einem Bereich dieser Wert auftaucht und fertig.
Excel ist doch kein Malprogramm, aber selbst wenn Du das als Malprogramm verwendest, kannst Du mit den Tipps von Thomas und mir zum Ziel kommen.
Das das dann aufwendiger wird, ist klar, das liegt an der Art Deiner Eingabe, aber machbar ist es.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Silke,

Zitat:

---

...das dann immer bedingt formatieren muß...

---

du musst natürlich nicht jede Zelle mit bedingter Formatierung neu machen, sondern 1x machen und dann mit dem Pinsel das Format auf alle fraglichen Zellen übertragen.

Gruß
Mörchen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zaehlen.xls.txt

Hallo Silke,

ich hab mal ein Beispiel gebastelt.
Zum Öffnen mit Umbenennen die Endung .txt entfernen. (Dateiname:Zaehlen.xls)

Man muss nur in der Zelle ein x reinmachen, der Rest geht von alleine. Das ist doch nicht komplizierter, als die Zelle einzufärben!!!

Gruß
Mörchen

PS: ich hab in der Formel /2 vergessen, wegen der halben Stunde: Formel =ANZAHL2(B3:B42)/2

[Diese Nachricht wurde von Mörchen am 12. Mrz. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zelle.JPG

Hallo,

müsste doch eigentlich mit der Funktion "Zelle" und Infotyp "Farbe" machbar sein.
Leider spuckt Excel bei mir immer 0 aus, egal ob Farbe oder nicht.     

Kann mir vielleicht jemand erklären woran's liegen kann?

Welche Farbe wird z.B. ausgewertet?

------------------
Jetzt wieder im Norden

---

Guten Morgen Peddersen,

hab da noch was für dich:
das ganze ist eine benutzerdefinierte Funktion, die ich im WWW einmal gefunden habe:

Code:

---

Function Farbsumme(Bereich As Range, Farbe As Integer)
Dim Zelle As Object
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme = Farbsumme + 1
End If
Next
End Function

---

Einfach den VBA - Editor vom Excel öffnen, ein neues Modul anlegen und den Code hinein kopieren. Dann in deiner Zelle, in der du die Zellen mit dem entsprechenden Hintergrund gezählt haben möchtest, einfach

Code:

---

=Farbsumme(Bereich in dem gezählt werden soll; Farbindex)

---

eintragen.
Und schon bekommst du die Zellen mit der entsprechenden Hintergrundfarbe gezählt!  
Grüße

Tobias

[Diese Nachricht wurde von MWN am 16. Sep. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

woher kriege ich den Farbindex?

------------------
Jetzt wieder im Norden

---

Moin!

Ich hab mal eine Urlaubs-/Krankheitstabelle gebastelt, bei der die Zellen per Doppelklick erst grün (Urlaub), dann gelb (Krankheit), dann wieder weiß gefärbt wurden.
Am Ende jeder Spalte (=Tag) wurde durch zählen der gefärbten Zellen in einer Summenzelle angezeigt, wieviele Mitarbeiter krank sind bzw. Urlaub haben.
Da die Tabelle als schnelle Übersicht für Anwesenheit und Urlaubsplanung dienen sollte und noch mehr Funktionen enthielt (Statistik), war der Farbenkasperaufwand dort sinnvoll.
Wenn's was bringt kann ich das Ding mal ausgraben.

Nur um halbe Stunden zu zählen würde ich mir aber nicht die Mühe machen, ein Makro zu basteln, da kannste ja auch für jedes Projekt ein Glas auf den Schreibtisch stellen und alle halbe Stunde eine Murmel reinwerfen, oder Fünfer ins Schweinderl 

Den ColorIndex gibt's zur Not vom Makrorecorder    

Edit: Zu spät bemerkt, der is ja uralt...   

Grüße

[Diese Nachricht wurde von Hofe am 15. Sep. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

 

Zitat:

---

Original erstellt von Peddersen:
Hallo,

müsste doch eigentlich mit der Funktion "Zelle" und Infotyp "Farbe" machbar sein.
Leider spuckt Excel bei mir immer 0 aus, egal ob Farbe oder nicht. 

Kann mir vielleicht jemand erklären woran's liegen kann?

Welche Farbe wird z.B. ausgewertet?

---

Um auf Deine Frage einzugehen, denn der thread selber schimmelt ja schon fast ;):
Steht ja da:
 

Zitat:

---

1, wenn die Zelle für negative Werte farbig formatiert ist; andernfalls wird 0 (Null) zurückgegeben.

---

m.a.W.: das hat mit der Hintergrundfarbe der Zelle nichts zu tun, sondern bezieht sich rein auf das Zahlenformat, z.B.:

Code:

---

#.##0 _D_M;[Rot]-#.##0 _D_M

---

Zum Farbindex guck mal z.B. hier: http://vba1.de/vba/030farbindex.php  rein.

Zur Ursprungsfrage wird auch diese Formel funktionieren: http://www.excelformeln.de/formeln.html?welcher=432 und dann ZählenWenn die gewünschte IndexFarbe vorhanden ist.

Wichtig dabei ist nur noch: bedingte Formatierungen werden nicht als Farbe gezählt, nur festgefärbte Zahlen zählen mit.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info    Excel -Suche    RuA-Suche    FAQ-ACAD    Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich finde es zum piepen,
habe neulich erst gelernt, das wir in Bildern denken und Informationen verarbeiten, aber das das bis rein ins Excel / Zeitmanagement praktiziert wird....

Ich gebe in meiner Excel basierten Stundenabrechnung einfach Zeiten ein und addiere die.

------------------
Gruss Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Bern: Na ja, mit Excel kann man ja bekanntlich viel machen, und wenn es eben nur bunte Kästchen zählen ist  

@Peddersen: am einfachsten geht das, indem du ein Makro aufzeichnen lässt und dabei einfach nur die Hintergrundfarbe einer Zelle mit der Farbe belegst, deren Index du haben möchtest!
Willst du jedoch alle Zellen zählen, deren Hintergrundfarbe ungleich nichts ist, so muss du "xlnone" nehmen!

HTH

Grüße

Tobias

[Diese Nachricht wurde von MWN am 16. Sep. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ihr wisst schon,
das ihr da auf einen Uraltthread antwortet  

IMHO anstelle Kästchen farbig zu gestalten und diese dann mehr oder weniger aufwändig zu zählen.

in die Zelle ein X oder eine 1 oder auch 0,5 eingeben,
über bedingte Formatierung Hintergrundfarbe (wenn gewünscht auch noch gleich Schriftfarbe = Hintergrundfarbe definieren)
und die normale Auswertung/Berechnung bassierend af X, 1 oder ,5 machen.
Wie auch schon Mörchen vorgeschlagen hat ,)

Aber doch nicht solche Klimmzüge ;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

was heißt hier Uralt.

Es war eine ergänzende Frage zum gleichen Thema.Ist es da nicht sinnvoll diesen Beitrag zu ergänzen?
In anderen Forenbereichen 'leben' Beiträge mehrere Jahre.

Zum Inhalt:
Es macht schon manchmal Sinn Auswertungen über die Hintergrungfarbe zu erzeugen, wenn z.B. inhaltliche Auswertung über Excel nicht möglich oder gewolt ist.

------------------
Jetzt wieder im Norden

---

Moin, moin,

 

Zitat:

---

was heißt hier Uralt.    

Es war eine ergänzende Frage zum gleichen Thema.Ist es da nicht sinnvoll diesen Beitrag zu ergänzen?
In anderen Forenbereichen 'leben' Beiträge mehrere Jahre.

---

Is doch nix passiert, ganz ruuuhig  
Der Beitrag wurde ja auch genau aus dem Grund nicht geschlossen, ich bin Befürworter von lebenden Beiträgen!

Unsere Kommentare zielten nur darauf ab, dass die lieben Helferlein generell ein bißchen auf's Datum achten sollen, also nicht Silke ansprechen, sondern in diesem Fall Dich, was manche ja getan haben  

Ich wurde schon des Öfteren gebeten, alte Beiträge zu schließen, mach ich aber eher selten, eben aus oben genanntem Grund.

Ich hoffe, Deine ergänzenden Fragen wurden alle geklärt?

lg,
runkelruebe

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von runkelruebe:
....Ich hoffe, Deine ergänzenden Fragen wurden alle geklärt?

lg,
runkelruebe

---

Ja, hat mir super weitergeholfen.

(ich wollte mich auch gar nicht aufregen - wegen Kreislauf und so... )

------------------
Jetzt wieder im Norden

---

 

Zitat:

---

Original erstellt von Peddersen:
woher kriege ich den Farbindex?

---

Da ich es persönlich mühselig fände, erstmal den Index der Farbe zu ermitteln,
- ich weiss, ich bin faul -
Die Zelle, die den Farbwert enthält, als String übergeben.

Code:

---

Function Farbezaehlen(Bereich As Range, Farbe As String)
'Syntax =Farbezaehlen(A1:R40, "C1")

summe = 0
Farbwert = ActiveSheet.Range(Farbe).Interior.ColorIndex
   
    For Each Zelle In Bereich
        If Zelle.Interior.ColorIndex = Farbwert Then
            summe = summe + 1
        End If
    Next
    Farbezaehlen = summe
End Function

---

und in geänderter Form, das Zusammensummieren aller Zellen in einem Bereich mit ausgewählter Zelle die den Farbwert enthält.

Code:

---

Function Farbesumme(Bereich As Range, Farbe As String)
'Syntax =Farbensumme(A1:R40, "C1")

summe = 0
Farbwert = ActiveSheet.Range(Farbe).Interior.ColorIndex
   
    For Each Zelle In Bereich
        If Zelle.Interior.ColorIndex = Farbwert And IsNumeric(Zelle) Then
            summe = summe + Zelle.Value
        End If
    Next
    Farbesumme = summe
End Function

'=Farbensumme(A1:R40, "C1")

---

;-) Bezüglich Uralt    , manchmal befinden sich grafische Verzierungen hinter (m)einer Aussage
und bezogen sich eher auf Hofe und Lengenb, da sie auf Silkes Anfangstread antworteten (stundenzählen) ;-)

und dennoch bin ich der Meinung, bevor ich nur die Farben Zählen,
versuche ich lieber die mathematische Auswertung,
denn wahllos werden die Farben ja nicht in den Zellen stehen ;-)
.o0(obwohl...) ;-)

aber ich lasse mich immer gerne vom Gegenteil überraschen ;-)

------------------
   
Am Anfang war kein Licht - und Vater blickte Kalt
literaturcafe /// ¡darkerradio! // und den passenden Play für Winamp

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP