Farbige Zellen zählen

Forumthread: Farbige Zellen zählen

19.11.2003 10:35:44

Michael H.

Ich möchte einen Projektplan erstellen und jeden Tag bestimmte Aufgaben in einer Zeile farbig markieren. Wenn ich zum Beispiel 5 Zellen grün mache, soll mir die Formel als Ergebnis eine 5 liefern. Zeitüberschreitungen werden rot markiert und sollen auch gezählt werden.
Wer kann mir dabei helfen?

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Farbige Zellen zählen

19.11.2003 10:38:42

Knut
AW: Farbige Zellen zählen

19.11.2003 10:58:16

Jens
AW: Farbige Zellen zählen

19.11.2003 11:00:17

Knut
AW: Farbige Zellen zählen

19.11.2003 11:08:03

Jens
AW: Farbige Zellen zählen

19.11.2003 10:55:37

Jens
AW: Farbige Zellen zählen

19.11.2003 11:21:38

Michael H.
AW: Farbige Zellen zählen

19.11.2003 11:33:21

Michael H.

AW: Farbige Zellen zählen

19.11.2003 10:38:42

Knut

Hallo,

Frage...?

Gruß

so nimmt man an einem Forum teil!

AW: Farbige Zellen zählen

19.11.2003 10:58:16

Jens

Hi
was ist an der Frage "wer kann mir dabei helfen?" nicht zu verstehen?

Ich hab aus seiner Fragestellungs art rausgelesen das er möglicherweise keine Erfahrungen mit VBA hat und mit den Möglichkeiten in Excel nicht weiterkommt.

AW: Farbige Zellen zählen

19.11.2003 11:00:17

Knut

Hallo Jens,

aber eine Anrede und ein Gruß sind doch wohl nicht zuviel verlangt, oder?

Gruß Knut

AW: Farbige Zellen zählen

19.11.2003 11:08:03

Jens

Stimmt, die kleine Unhöfflichkeit war mir so am frühen Morgen noch garnicht aufgefallen.

Gruß Jens (hatte es auf deiner Antwort auch klatt vergessen)

AW: Farbige Zellen zählen

19.11.2003 10:55:37

Jens

Hallo

Für das Umfärben der Zellen kann man auch Format/Bedingte Formatierung nehmen.
Wenn du es aber unbedingt selber machen willst:

Wechsel zu VBA(Alt+F11)
gehe auf Einfügen/Modul
in dieses Modul:


Function FarbeZaehlen(Referenzzelle As Range, Bereich As Range) As Long
Dim Farbe As Byte
Dim Zelle As Range
Dim Zähler As Long
Farbe = Referenzzelle.Interior.ColorIndex
Zähler = 0
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then Zähler = Zähler + 1
Next Zelle
FarbeZaehlen = Zähler
End Function

In Excel selbst schreibst du dann:
=FarbeZaehlen(A1;B1:B200)
A1 == ist die Zelle die die Farbe endhält die du Zählen willst
B1:B200 == ist der Bereich in dem Gezählt werden soll.

Gruß Jens

AW: Farbige Zellen zählen

19.11.2003 11:21:38

Michael H.

Hallo,

sorry, bin das este Mal dabei. Soll nicht wieder vorkommen :-).

Habe es schon ausprobiert und es klappt wunderbar. Vielen Daannnk.

Gruß
Michael

PS: Ich hoffe, dass war jetzt so ok.

AW: Farbige Zellen zählen

19.11.2003 11:33:21

Michael H.

Hallo Knut,

tut mir Leid, soll nicht wieder vorkommen :-)

Gruß

Michael

Forumthread: Farbige Zellen zählen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread