Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

farbige Zellen zählen

Forumthread: farbige Zellen zählen

farbige Zellen zählen
21.06.2005 17:02:08
Jan
Hallo zusammen,
kann mir jemand sagen wie ich farbige Zellen zählen kann.
Ich habe in meiner Datei von A2-M2753 teilweise farbige Zellen
wo ich jetzt die Anzahl brauche wie viele farbig sind.
Gibt es da eine Lösung?
Danke u. Gruß
Jan
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: farbige Zellen zählen
21.06.2005 18:08:58
Hajo_Zi
Hallo Jan,
schaue mal auf meine Homepage da ist ein Beispiel auf der Seite VBA.
Beispieldatei
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Home und Excel Version XP 2003 SP1.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.



"Wer Rechtschreibfehler findet, darf sie behalten!"
Anzeige
AW: farbige Zellen zählen
21.06.2005 18:11:51
geri
Hallo JAn
hier die Formel
=Farbsumme(E$15:E$67;3)
die drei ist für rot
dies in ein 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

'die benötigst du für bestimmung des Fabrcodes, Zelle Färben markiert 

Sub starten


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



geht aber nicht wenn bedingt Formatiert 

gruss geri
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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