Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1336to1340
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
1336to1340
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farbige Zellen Zählen - erkennt nicht alle Farben

Farbige Zellen Zählen - erkennt nicht alle Farben
30.10.2013 10:57:07
websnake75
Hallo, ich versuche mittels eines Makros die Anzahl der Zellen mit verschiedenen Farben zu ermitteln. Das klappt aber nicht bei allen Farben.
Kann mir da jemand weiterhelfen?
Hier kommt das Makro.
Function FarbigeZellenZählen(rng As Range, Farbe)
Dim Zelle As Object
Application.Volatile
For Each Zelle In rng
If Zelle.Interior.ColorIndex = Farbe Then FarbigeZellenZählen = FarbigeZellenZählen + 1
Next
End Function
Ich poste das Exceldokument mal. https://www.herber.de/bbs/user/87876.xlsm
Gruß
Ronald

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

Betreff
Datum
Anwender
Anzeige
Farbige Zellen Zählen - erkennt nicht alle Farben
30.10.2013 11:08:49
Hajo_Zi
Hallo Roland,
Du benutzt bedingte Formatierung und da die Farbe auslesen ist aufwendig.

AW: Farbige Zellen Zählen - erkennt nicht alle Farben
30.10.2013 11:19:25
Frank
Hallo,
der alte Excel4-Makrobefehl ZELLE.ZUORDNEN und auch die VBA-Eigenschaft ColorIndex kennen nur 56 Farben.
Du hast aber Farben ausserhalb der bekannten 56 Farben benutzt. Ändere deine Function wie folgt:
...
If Zelle.Interior.Color = Farbe Then ...
...
Die Farbzahl selber könntest du mit dem folgenden Makro neben der Farbzelle eintragen lassen:

Sub Farbe()
Dim rngZelle As Range
For Each rngZelle In Selection.Cells
rngZelle.Offset(0, 1).Value = rngZelle.Interior.Color
Next
End Sub

Mit freundlichem Gruß aus der Rattenfängerstadt Hameln
Frank Arendt-Theilen
---
at-exceltraining.de

Anzeige
AW: Farbige Zellen Zählen - erkennt nicht alle Farben
30.10.2013 12:05:16
websnake75
Danke für Deine Hilfe, hab jetzt folgendes Makro 
Function FarbigeZellenZählen(rng As Range, Farbe)
Dim Zelle As Object
Application.Volatile
For Each Zelle In rng
If Zelle.Interior.Color = Farbe Then FarbigeZellenZählen = FarbigeZellenZählen + 1
Next
End Function

Jetzt erkennt er aber gar keine Farbe mehr in meiner Wennfunktion.
Gruß
Ronald

Weder Hajo noch Frank haben sich deine ...
30.10.2013 13:46:57
Luc:-?
…Tabelle richtig angesehen, Ronald;
da spielt weder BedingtFormatierung eine Rolle (sollte aber!) noch ist die Änderung der UDF hier sonderlich relevant, da schon der ganze Ansatz untauglich ist → ein FmlMonstrum, das sich permanent auf seine StandortZelle bezieht, die du wohl per Hand einfärbst. Warum in aller Welt trägst du nicht die Buchstaben ein und überlässt das Färben einer BedingtFormatierung?! Die kann auch den Buchstaben gleichfarbig machen. Das ist doch viel bequemer (und normaler, weil gewohnter) als mit den Farben rumzuspielen!
Überleg' dir das noch mal!
Gruß Luc :-?
Anzeige

302 Forumthreads zu ähnlichen Themen

Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Anzeige
Füllfarbe nicht mittdrucken
Karsten

Hallo,
Kennt jemand eine Möglichkeit, dass die Füllfarbe nicht mitgedruckt wird?
https://www.herber.de/bbs/user/66717.xls
Dankr für eure Hilfe.
Gruß
Karsten
20.12.2009 13:51:12
Thread-ID: 1125144
9 Beiträge
Bedingte Formatierung klappt nicht
Juergen

Hallo
Ich brauche mal Hilfe.
Und zwar hab ich folgendes Problem mit der Bedingten Formatierung:
in zelle E12 ist eine Formel die ein Wert Zurückgebt.(1-25)
in zelle F12 ist ebenfalls eine Formel hinterlegt die auch ein Wert zurückgebt.(1-25)
Nun zu mein Problem Ich möchte, w...
22.01.2010 21:00:10
Thread-ID: 1132233
16 Beiträge
Anzeige
Führende Null wird nicht gedruckt
Josef

Hallo!
Mit unten stehendem Makro wird der Inhalte einer ListBox1 in einer UF in ein neues Tabellenblatt kopiert und ausgedruckt.
In der zweiten Spalte in der ListBox1 stehen zweistellige Zahlen und zwar mit einer führenden Null.
Beim Ausdruck erhalte ich jedoch nur eine einstellige...
12.02.2010 07:51:01
Thread-ID: 1137948
3 Beiträge
Bedingte Formatierung klappt nicht
Axel

Hallo zusammen,
Ich habe eine Zelle A1 mit einer bedingten Formatierung belegt: Formel ist =UND(A1=0;A1""
Damit erreiche ich, dass die Zelle bei einer 0 ein bestimmtes Format annimmt, aber nicht, wenn die Zelle leer ist. Vielen Dank für diese Lösung an die Helfer hier im Forum!
Wen...
04.03.2010 18:12:36
Thread-ID: 1143463
3 Beiträge
einige Zellen ohne Farbe drucken
Klaus

Hallo,
ist es möglich in dieser Tabelle die farbigen Zellen ohne Farbe zu drucken?
Also ich möchte die Farbe zum Drucken entfernt haben, da die Formulare farbig sind. Aber die schwarzen Felder sollten unbedingt mit ausgedruckt werden um die falsche Beschriftung auf den Vorlagen zu überd...
06.03.2010 06:01:01
Thread-ID: 1143869
3 Beiträge
€-Zeichen wird nicht gedruckt Word- Excel Tabelle
Dieter

Hallo zusammen,
folgendes Phänomen:
Drucken Eurozeichen in Word = ok
Drucken Eurozeichen in Excel = ok Drucken Eurozeichen in ein Excel-Tabelle die in einem Word-Dokument liegt = no go Was kann man da tun?
03.05.2002 14:08:29
Thread-ID: 118236
2 Beiträge
bedingte Formatierung greift Wert nicht auf
Felix

Hallo,
eine wahrscheinlich ganz einfache Sache:
Ich moechte mit bedingter formatierung eine Zelle X formatieren, wenn in zwei anderen Zellen Y und Z das gleiche Datum steht. Problem ist, dass die Zellen Y und Z per Link auf andere Zellen zugreifen. Der Zellinhalt ist also ein Link, au...
09.11.2010 10:19:09
Thread-ID: 1185831
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
7
8
15
3
2
2
2
1
2
5
3
3
14
3
3
8
1
4
7
6
2
3
1
5