Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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

Anzeige
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

Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige