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

verschiedene Farben einer Spalte auszählen

verschiedene Farben einer Spalte auszählen
15.07.2003 17:26:08
Michael
Hallo,
eine Spalte enthält Zellen in drei verschiedenen Farben (rot, gelb, grün, ohne Farbe). Ich möchte daraus ein Balkendiagramm erstellen mit der Anzahl an roten, gelben, grünen und nicht eingefärbten Kästchen. Ist dies möglich, wenn sich die Zellen ansonsten inhaltlich nicht unterscheiden (alle enthalten z.B. den Buchstaben "M", nur die nicht eingefärbten können auch komplett leer sein)?
Gruß
Michael

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: verschiedene Farben einer Spalte auszählen
15.07.2003 17:57:09
xXx
Hallo,
=AnzFarben(A1:C20;"grün")

Function AnzFarben(Bereich As Range, Farbe As String) As Integer
Dim iFarbe, c As Range
Select Case Farbe
Case "rot": iFarbe = 3
Case "grün": iFarbe = 50
Case "gelb": iFarbe = 6
Case "": iFarbe = xlNone
End Select
AnzFarben = 0
For Each c In Bereich.Cells
If c.Interior.ColorIndex = iFarbe Then AnzFarben = AnzFarben + 1
Next c
End Function

Farbnummern evtl. anpassen
Gruß aus'm Pott
Udo

AW: verschiedene Farben einer Spalte auszählen
15.07.2003 17:45:54
geri
Hallo Michael
die Formel A1:a70 ist der Bereich 4 ist die Farbnummer
=Farbsumme(A1:A70;4)
in Modul
Option Explicit

Function Farbsumme(Bereich As Range, Farbe As Integer)
Application.Volatile ' damit bei änderung ausgeführt wird
Dim Zelle
Farbsumme = 0
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme = Farbsumme + 1
End If
Next
End 

Function
in Modul zum bestimmn der Farbnummer

Sub Farbnummer()
Dim i As Integer
i = ActiveCell.Interior.ColorIndex
MsgBox " Farbnummer " & i
End 

Sub
mit F9  wird berechnet
gruss geri

Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige