Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
452to456
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
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen mit Farben zählen

Zellen mit Farben zählen
14.07.2004 02:45:02
Hermann
Hallo User,
ich möchte auf einem Excelblatt die Zellen mit einer bestimmten Farbe (z.B. Rot und schwarz) zählen. Die eingefärbten Zellen befinden sin in Zeilen die alle 9 Zeilen erneut gezählt werden müssen. (z. B. a7:cs7,a16:cs16,a25:cs25 usw.).

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen mit Farben zählen
16.07.2004 00:19:52
Hermann
Hallo Jörg,
zunächst einmal vielen Dank für Deinen Tip. Ich konnte es soweit umsetzten. Eine Frage habe ich aber noch, wenn die zu zählenden Farben nur alle 9 Zeilen stehen (z. B. a7:cs7, a16:cs16, a25:cs25 usw.). wie muss dann das Makro erweitert werden. Für einen weiteren Tip wäre ich Dir dankbar.
Gruss Herrmann
AW: Zellen mit Farben zählen
Jörg
Hallo Herrmann,
probier mal folgendes

Sub Farben_zählen_in_Bereich() 'A7:CS7, dann immer 9 Zeilen weiter bis Zeile 100
Dim rot As Integer
Dim schwarz As Integer
Dim Zeile As Integer
Dim Spalte As Integer
rot = 0
schwarz = 0
For Zeile = 7 To 100 Step 9 ' Zeile 100 (Obergrenze) eventuell hier anpassen
For Spalte = 1 To 97
If Cells(Zeile, Spalte).Interior.ColorIndex = 3 Then rot = rot + 1
If Cells(Zeile, Spalte).Interior.ColorIndex = 1 Then schwarz = schwarz + 1
Next Spalte
Next Zeile
MsgBox rot & " rote Zellen im Bereich!"
MsgBox schwarz & " schwarze Zellen im Bereich!"
End Sub

Gruss Jörg
Anzeige

149 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige