Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1084to1088
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
Farbige Zellen zählen
Erich
Hallo,
ich habe da ein Problem: In Spalte D von Zeile 9 bis 242 befinden sich weiße, braune und violette Zellen. Die violetten Zellen sollen nun gezählt werden. Die Stückzahl der violetten Zellen soll nun mittels Formel ermittelt werden.
Ich bitte um Hilfe.
Gruß EM

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Farbige Zellen zählen
09.07.2009 14:09:04
Hans
Hallo Erich,
wie bei dem folgenden Beispiel:
https://www.herber.de/mailing/209903h.htm
nur dass statt der Schriftfarbe die Zellinnenfarbe angesetzt werden muss:
If rngAct.Interior.ColorIndex
gruss hans
AW: Farbige Zellen zählen
09.07.2009 14:17:58
Erich
Hallo Hans,
zuerst mal Danke. Wo setze ich denn bei Deiner Function den Farbwert "violett" ein ?
Ich hatte gedacht, daß die Anzahl der farbigen Zellen mittels einer Formel möglich ist.
Gruß EM
AW: Farbige Zellen zählen
09.07.2009 14:30:23
Hans
Hallo Erich,
nachstehend die für Deine Anforderung angepasste Formel:

Function CountCellColor(rng As Range, iColor As Integer) As Double
Dim rngAct As Range
Dim iCount As Integer
For Each rngAct In rng.Cells
If IsNumeric(rngAct.Value) Then
If rngAct.Interior.ColorIndex = iColor Then
iCount = iCount + 1
End If
End If
Next rngAct
CountCellColor = iCount
End Function

die Variable iColor ist die Nummer des Farbindexes. Du gibst die Formel in folgender Form ein:
=CountCellColor(A1:F16;13)
Die Farbindizes stellst Du fest über:

Sub Farben()
Dim i As Integer
For i = 1 To 56
Cells(i, 1).Interior.ColorIndex = i
Next i
End Sub

Anzeige
Danke Hans !!!
09.07.2009 14:55:08
Erich
.

185 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige