Zählen ROTE Zellen

Forumthread: Zählen ROTE Zellen

Zählen ROTE Zellen

17.03.2008 12:26:38

Walter

Hallo Zusammen,
ich möchte gern die ROTEN Zellen in der Spalt 2 zählen,
habe so eingefärbt: Selection.Interior.ColorIndex = 38
mfg Walter mb

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zählen ROTE Zellen

17.03.2008 12:34:00

Rudi
Danke für die Info

17.03.2008 12:44:00

Walter
Habe dies gefunden, klappt nicht

17.03.2008 13:09:00

Walter
AW: Habe dies gefunden, klappt nicht

17.03.2008 13:15:59

Rudi
DANKE Rudi, klappt -)

17.03.2008 13:57:10

Walter
AW: Zählen ROTE Zellen

17.03.2008 12:34:13

selli
AW: Zählen ROTE Zellen

17.03.2008 12:45:18

Walter
AW: Zählen ROTE Zellen

17.03.2008 13:03:24

selli

AW: Zählen ROTE Zellen

17.03.2008 12:34:00

Rudi

Hallo,
1000x gefragt. Schau mal ins Archiv.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Danke für die Info

17.03.2008 12:44:00

Walter

Habe dies gefunden, klappt nicht

17.03.2008 13:09:00

Walter

Hallo,
habe dies gefunden, klappt nicht:


Sub Rote_Zellen_Zählen()
Call FARBEZÄHLEN
End Sub


Function FARBEZÄHLEN(Bereich As Range, Farbe As Byte) As Long
Dim c As Range
For Each c In Bereich
If c.Interior.ColorIndex = 36 Then
FARBEZÄHLEN = FARBEZÄHLEN + 1
End If
Application.Volatile (True)
Next c
End Function

mfg Walter mb

AW: Habe dies gefunden, klappt nicht

17.03.2008 13:15:59

Rudi

Hallo,
eine Funktion wird nicht mit Call aufgerufen. Außerdem musst du die Parameter mitgeben.


Sub Rote_Zellen_Zählen()
MsgBox FARBEZÄHLEN(Range("A1:A100"), 38)
End Sub


Function FARBEZÄHLEN(Bereich As Range, Farbe As Byte) As Long
Dim c As Range
For Each c In Bereich
If c.Interior.ColorIndex = Farbe Then
FARBEZÄHLEN = FARBEZÄHLEN + 1
End If
Next c
End Function

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

DANKE Rudi, klappt -)

17.03.2008 13:57:10

Walter

Hallo Rudi,
danke für die Hilfe !
mfgt Walter mb

AW: Zählen ROTE Zellen

17.03.2008 12:34:13

selli

hallo walter,
warum sind deine zellen denn rot?
zähle, wieviele zellen diese bedingung erfüllen.
gruß selli

AW: Zählen ROTE Zellen

17.03.2008 12:45:18

Walter

Hallo Selli,
und wie geht das ?
mfg Walter mb

AW: Zählen ROTE Zellen

17.03.2008 13:03:24

selli

walter,
was soll das heissen "und wie geht das"?
nur DU allein weisst, warum die zellen rot sind.
was steht denn in den roten zellen, ws unterscheidet denn deren inhalt von dem anderer zellen?
gruß selli

Beliebteste Forumthreads (12 Monate)

Forumthread: Zählen ROTE Zellen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread