Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Farben zählen

Forumthread: VBA Farben zählen

VBA Farben zählen
24.03.2016 19:42:34
Simone
Hallo zusammen,
kann man per VBA die Zellen der Farben zählen ?
Bereich der gezählten Zellen A1:H32
Und die gezählten Farbe sind in der Spalte J drin und die Anzahl soll in K erscheinen.
Sobald ich eine Farbe dazu machen ( A1:H32 ) möchte ich die Anzahl der Farben aktualisieren.
https://www.herber.de/bbs/user/104601.xlsm
Geht so was ?
Danke an alle
Simone

Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Farben zählen
24.03.2016 19:49:28
Hajo_Zi
Hallo Simone,
Farbveränderungen lösen keoine Aktion aus.

AW: VBA Farben zählen
24.03.2016 19:52:06
Simone
das heißt?
kann man nicht die farbigen zellen zählen ?

AW: VBA Farben zählen
24.03.2016 19:55:20
Hajo_Zi
doch, man kann sie Zählen. Nur Farbveränderungen löst keine Aktion aus, wie schon geschrieben. Es sollte ja sofort passieren.
Gruß Hajo

Anzeige
AW: VBA Farben zählen
24.03.2016 19:58:31
ransi
Hallo Simone,
Versuch mal sowas:
Tabelle1

 ABCDEFGHIJK
1           
2           
3         FarbeAnzahl
4          5
5          6
6          2
7          2
8          5
9          1
10           
11           
12           
13           
14           
15           
16           
17           
18           
19           
20           
21           
22           
23           
24           
25           
26           
27           
28           
29           
30           
31           
32           

Formeln der Tabelle
ZelleFormel
K4=machs($A$1:$H$32;J4)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Das ist der Code:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Function machs(Bereich As Range, Farbzelle As Range)
    Dim Zelle As Range
    For Each Zelle In Bereich.Cells
        If Zelle.Interior.Color = Farbzelle.Interior.Color Then machs = machs + 1
    Next
End Function


ransi

Anzeige
AW: VBA Farben zählen
24.03.2016 20:11:36
Simone
Schön, aber leider keine akualisierung :-(
Trotzdem Danke

AW: VBA Farben zählen
24.03.2016 20:11:40
Simone
Schön, aber leider keine akualisierung :-(
Trotzdem Danke

AW: VBA Farben zählen
24.03.2016 20:11:43
Simone
Schön, aber leider keine akualisierung :-(
Trotzdem Danke

Anzeige
Aktualisierung ist nicht oW möglich, ...
24.03.2016 20:33:11
Luc:-?
…Simone,
da simple Formatierung kein (nutzbares) Ereignis auslöst. Da müsstest du schon den FormatPinsel „schwingen“! Wenn du als 1.PgmZeile (nach Dim) Application.Volatile einfügst, kannst du aber mit [F9] bzw Klick in beliebige Zelle (und Edit-Beenden) eine Aktualisierung auslösen.
Gruß, Luc :-?

Anzeige
AW: VBA Farben zählen
24.03.2016 20:10:37
Simone
Hallo Mathias,
Kannst du mir den Code erklären?
rivate Sub CommandButton1_Click() Dim x&, rng As Range, Zaehler& For x = 4 To 14 ' warum 4 To 14 Zaehler = 0 'Warum 0 For Each rng In Range("Bereich") 'Namensmanager ? If rng.Interior.ColorIndex = Cells(x, "J").Interior.ColorIndex Then Zaehler = Zaehler + 1 If Cells(x, "J").Interior.ColorIndex -4142 Thein 'warum -4142 Cells(x, "K") = Zaehler End If End If Next Next End Sub Danke

Anzeige
Erklärung ...
25.03.2016 12:12:00
Matthias
Hallo Simone
Klar erkläre ich Dir den Code.
warum 4 To 14
weil Du die Farben zählen willst von Zeile 4 bis 14
Tabelle1

 JK
3FarbeAnzahl
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Ich hatte dabei den gerahmten Bereich gewählt und hätte dann 4 bis 15 nehmen müssen.
In Deinem Bsp. reicht 4 bis 9
Zaehler = 0 'Warum 0
Weil wir die Schleife mehrmals starten.
'warum -4142
weil dann keine Farbe als Hintergrund gesetzt ist.
Gruß Matthias

Anzeige
Info: Geht auch mit Fml unter Einbeziehung ...
24.03.2016 20:26:55
Luc:-?
…geeigneter UDFs, Matti,
bspw (in Vorgriff auf eine Neuentwicklung) so:
K4[:K9]:=SUMMENPRODUKT(--IsDColor(TxEval("CellColor("&RAddress(J4)&")");Bereich;1))
Gruß, Luc :-?
Besser informiert mit …

Anzeige
zeig sie mir bitte, wenn sie fertig ist :-)
25.03.2016 12:14:36
Matthias
Frohe Ostern ...
Gruß Matthias

Klar, ...
25.03.2016 14:06:25
Luc:-?
…Matti,
denn das hatte ich hier schon angekündigt, kann aber auch noch länger (bis ggf ca 2 Wochen) dauern…
Gruß & dito FrOst, Luc :-?
Anzeige
;

Forumthreads zu verwandten Themen

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
09.07.2009 14:09:04
Thread-ID: 1087433
5 Beiträge
farbige zellen zählen
otto

Hi,
ich such eine Möglichkeit per Formel (ohne VBA) in einer Zeile alle roten Zellen zu zählen. Die Zellen enthalten aber keine Werte.
Gruß
otto
07.09.2009 13:46:55
Thread-ID: 1101019
3 Beiträge
Farbige Zellen zählen
Walter

Hallo Excelfreunde,
Ich erzeuge per bedingter Formatierung farbige Zellen.
Kann man die Werte dieser Zellen zählen?
Gruß
Walter
28.09.2009 21:57:52
Thread-ID: 1106093
11 Beiträge
Anzeige
Farbige Zellen zählen
Gunnar

Hallo Zusammen,
ich hab mal wieder ein Problem, bei dessen Lösung ich auf eure Hilfe hoffe.
Folgenden Code verwende ich um farbige Zellen in den Spalten A, B und C (jeweils 1 - 10) zu zählen.
Function CountCellColor(rng As Range, iColor As Integer) As Double Dim rngAct As Range Dim...
04.05.2010 12:33:33
Thread-ID: 1155316
9 Beiträge
Anzahl farbige Zellen zählen
Jens-Claus

Hallo Excelfreunde,
ich habe ein Arbeitsblatt wo Zellen in verschiedenen Farben markiert sind.
Wer hat mir ein Makro mit welchem ich die Anzahl der Zellen pro Farbe
anzeigen kann.
Das wäre super.
Besten Dank im voraus
Jens
04.11.2010 17:18:09
Thread-ID: 1185243
4 Beiträge
Farbige und Nichtfarbige Zellen zählen
marell23

Hallo!
Zunächst möchte ich einen Dank aussprechen für die aktiven und auch inaktiven (Archiv) Antworten
zu den verschiedenen Excel Themen.
Nun, mich beschäftigt ein weiteres Problem:
Ich vergleiche zwei Sheets nach der Spalte D. Stimmen die Daten überein wird die Spalte farbig...
07.06.2011 11:49:23
Thread-ID: 1217531
10 Beiträge
Farbige Zellen Zählen - erkennt nicht alle Farben
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.Vola...
30.10.2013 10:57:07
Thread-ID: 1336484
5 Beiträge
Anzeige
farbige Zellen zählen
Philipp

Hallo zusammen,
habe folgendes Problem...
Ich habe mir eine Excel-Liste erstellt, in der Zellen via Kontrollkästchen/VBA Code gefärbt werden. Nun möchte ich zusätzlich folgendes hinzufügen.
- Am Ende der Liste möchte ich gerne alle farbigen Zellen z.B. in Spalte F summieren und als...
07.03.2014 12:50:34
Thread-ID: 1352613
3 Beiträge
Farbige Zellen in bedingter Formatierung zählen
Udo

Moin,
ich möchte in einem Kalender die Netto-Urlaubstage zusammenzählen.
Die Urlaubstage werden mittels einer bedingten Formatierung farblich gekennzeichnet.
Mittels eines VBA scriptes bekomme ich es zwar hin das die von Hand eingetragenen Farben gezählt werden, aber die Urlaube wer...
14.03.2015 11:17:56
Thread-ID: 1414997
3 Beiträge
Anzeige
Farbige Zellen je Zeile zählen
Rolf

Hallo zusammen
Ich möchte in einem grösseren Bereich alle farbigen Zellen pro Zeile zählen und in der Spalte C pro Zeile die Anzahl der farbigen Zellen dieser Zeile eintragen. Mit Folgendem Link kann ich alle farbigen Zellen ermitteln und in Zelle C10 schreiben - das ist aber nun nicht mehr...
01.04.2015 22:54:08
Thread-ID: 1418589
4 Beiträge
Anzeige
VBA Zahlenwert in Zellen vergleichen
slang

Hallo,
ich habe folgendes Problem und hoffe auf Hilfe.
ich habe 2 Spalten mit Zahlenwerten und möchte abgleichen ob die Zahl aus Spalte B in A vorhanden ist.
Also immer zeilenweise und nicht genau sondern nur ob das Zeichen (nicht der Wert) da ist. (Es handelt sich übrigens um Woche...
07.05.2015 11:35:28
Thread-ID: 1425151
5 Beiträge
farbige Zellen zählen
Michl

Hallo zusammen,
im net habe ich bereits gefunden wie man farbige Zellen zählt.
Unter Name definieren.
dann: ZELLE.ZUORDNEN(63;INDIREKT("ZS(-1)";))" 
die Minus 1 in der Formel geht ja von der Spalte A aus. Wie muss denn die Formel aussehen, wenn ich alle Farben vom Tabellenb...
14.09.2015 07:02:14
Thread-ID: 1447295
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Farbige Zellen mit VBA zählen in Excel

Schritt-für-Schritt-Anleitung

Um die farbigen Zellen in Excel zu zählen, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne die Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste im Projektfenster auf „VBAProject (DeinDateiname)“.
    • Wähle „Einfügen“ > „Modul“.

  3. Kopiere den folgenden Code in das Modul:

    Function machs(Bereich As Range, Farbzelle As Range) As Long
    Dim Zelle As Range
    For Each Zelle In Bereich.Cells
        If Zelle.Interior.Color = Farbzelle.Interior.Color Then
            machs = machs + 1
        End If
    Next
End Function

  4. Verwende die Funktion in Deinem Arbeitsblatt. Zum Beispiel, wenn Du die Anzahl der gelben Zellen in A1:H32 zählen möchtest und die Farbe in J1 festgelegt hast, schreibe in K1:

    =machs(A1:H32, J1)

  5. Aktualisiere die Zählung, indem Du F9 drückst oder in eine beliebige Zelle klickst und die Eingabe beendest.

Häufige Fehler und Lösungen

  • Fehler: Funktion aktualisiert nicht

    • Lösung: Stelle sicher, dass die Funktion Application.Volatile in die Funktion eingefügt wird, um eine automatische Aktualisierung zu ermöglichen. Füge dies direkt nach Option Explicit ein.

  • Fehler: Zählt nicht korrekt

    • Lösung: Überprüfe, ob die Farbcodes der Zellen und der Referenzzelle übereinstimmen. Die Farbvergleiche basieren auf dem .Interior.Color-Wert.

Alternative Methoden

Wenn Du keine VBA verwenden möchtest, kannst Du die bedingte Formatierung in Excel nutzen oder eine Hilfsspalte erstellen, die eine Formel zur Zählung basierend auf einer bestimmten Bedingung verwendet.

  • Bedingte Formatierung: Du kannst Zellen je nach ihren Werten oder Formeln farblich markieren.

  • Hilfsspalte: Füge eine Spalte hinzu, die mit =WENN(A1="Farbe"; 1; 0) die Zellen zählt.

Praktische Beispiele

Hier ist ein praktisches Beispiel, wie Du die Funktion in einer Tabelle nutzen kannst:

  1. Bereich: A1:H32
  2. Farben: Definiere in Spalte J die Farben, die Du zählen möchtest.
  3. Anzahl: Verwende in Spalte K die Formel =machs($A$1:$H$32; J4) für die entsprechende Farbe.

Tipps für Profis

  • Experimentiere mit verschiedenen Farbkodierungen und -typen, um die besten Ergebnisse zu erzielen.
  • Nutze die Debug.Print-Funktion in VBA, um den Wert der Zählvariablen während der Ausführung zu überprüfen.
  • Wenn Du eine große Datenmenge hast, kann die Verwendung von Arrays anstelle von Zellen die Geschwindigkeit erhöhen.

FAQ: Häufige Fragen

1. Kann ich die Funktion auch auf andere Bereiche anwenden? Ja, Du kannst die Funktion machs auf jeden anderen Bereich anwenden, indem Du einfach die Zellreferenzen anpasst.

2. Was ist der Unterschied zwischen .Interior.Color und .Interior.ColorIndex? .Interior.Color gibt den RGB-Wert zurück, während .Interior.ColorIndex den Index der Farbe innerhalb einer Palette zurückgibt. Für genauere Vergleiche solltest Du .Interior.Color verwenden.

3. Funktioniert das auch in Excel Online oder nur in Desktop-Versionen? Die VBA-Funktionalität ist nur in Desktop-Versionen von Excel verfügbar. In Excel Online kannst Du keine VBA-Skripte ausführen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige