Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Zählen von Zellen mit einer bestimmten Farbe

nach unten

Betrifft: Zählen von Zellen mit einer bestimmten Farbe von: Erik
Geschrieben am: 23.09.2020 14:52:06

Hallochen,

ich möchte in einer Tabelle Zellen mit einer bestimmten Farbe zählen. Dazu habe ich die Funktion CountCcolor eingebunden. Das funktioniert hervorragend. Nun möchte ich die Funktion aber so erweitern, dass nur sichtbare Zellen gezählt werden. Habt Ihr da eine Idee für mich?

Function CountCcolor(range_data As range, criteria As range) As Long     
Dim datax As range
Dim xcolor As Long 
xcolor = criteria.Interior.ColorIndex 
For Each datax In range_data     
If datax.Interior.ColorIndex = xcolor Then 
CountCcolor = CountCcolor + 1     
End If 
Next datax 
End Function





nach oben  nach unten

Betrifft: AW: Zählen von Zellen mit einer bestimmten Farbe





von: Hajo_Zi

Geschrieben am: 23.09.2020 15:04:24



prüfe die Zeilenhöhe>0



GrußformelHomepage 





nach oben  nach unten

Betrifft: AW: Zählen von Zellen mit einer bestimmten Farbe





von: Erik

Geschrieben am: 28.09.2020 12:05:07


hättest du ein Beispiel für mich? Ich bekomm es nicht hin.





nach oben  nach unten

Betrifft: AW: Zählen von Zellen mit einer bestimmten Farbe





von: Hajo_Zi

Geschrieben am: 28.09.2020 15:24:46



    If Rows("17:17").RowHeight > 0 Then



Gruß Hajo















Beiträge aus dem Excel-Forum zum Thema "Zählen von Zellen mit einer bestimmten Farbe"


 

 

Vorkommen von Zahlenreihen in Spalten
  

Zeichenfolgen in Zahlen nach Textimport
  

 



Zahlenformatierung mit Punkt nach der 1. Ziffer
  

Namen von TextBoxes hochzählen
  

 



Zählen formatierter Zellen
  

Autofilter auch mit Ziffern von Zahlen
  

 



Addition der absoluten Zahlen
  

Eingabe von positiven Zahlen erzwingen
  

 



Zufallszahlen generieren, die sich nicht wiederholen
  

Summenformel unter Zahlenreihe eintragen
  

 



Nur AJM in TextBox akzeptieren und Anzahl zählen
  

Teilergebnisse in Zahlenreihe eintragen und löschen
  

 



Nach Textimport Strings in Zahlen wandeln
  

Alle Formeln und Zahlen löschen
  

 



Werte nur mit Zahlenformaten übertragen
  

Worte in einem vorgegebenen Bereich zählen
  

 



Anzahl in einer Liste vorkommender Namen zählen
  

Zellwerte über SpinButton und ScrollBar hochzählen
  

 



Zahlenstring mit Formel auslesen und Fehlermeldung verhindern
  

Label in Zelle A1 bei jedem Ausdruck um 1 hochzählen
  

 



Anzahl Artikelnummern auf Deckblatt nach Blättern zählen
  

Als Text vorhandene Werte in Zahlen umwandeln
  

 



Den jeweils letzten Wert einer Zahlenreihe als Multiplikator
  

Mittelwert einer Zahlenreihe bis zur Zeile mit der Formel
  

 



Lottozahlen-Generator
  

Lücken aus Zahlenreihe listen
  

 



Zahlen in Abhängigkeit von ihrem Wert multiplizieren
  

Gleiche Zufallszahlen zählen und in Diagramm anzeigen
  

 



Zufallszahlen bis zum 4-fachen Wert generieren
  

Reihenfolge einer Zahlenreihe nach dem Zufallsprinzip variieren
  

 



Anzeige eines Zahlwortes synchron zur Textbox-Zahleneingabe
  

Zahlen unter Berücksichtigung von Monat und Jahr summieren
  

 



Tabelle gem. hinterlegten Zahlenformaten formatieren
  

Zählen von in einer Formel vorkommenden Zahlen
  

 



Addition der 10 höchsten Werte einer Zahlenreihe
  

Spaltenbreite gemäß den in den Zellen stehenden Zahlen festlegen
  

 



Zeilen zählen, in denen zwei Bedingungen zutreffen
  

Leerzeichen zwischen Zeichen- und Zahlenfolge entfernen
  

 



Alle Zellen mit einer vorgegebenen Hintergrundfarbe zählen
  

Zahlen eines Bereiches jeweils 4 mal in eine Spalte schreiben.
  

 



Kennzeichnung von Lottogewinnzahlen
  

Strings, die wie Zahlen aussehen, in Zahlen umwandeln
  

 



Zahlen-Formatierungs-Dialog aus UserForm aufrufen
  

Zahlenmarkierungen in einer Lottoliste
  

 



Datensätze zählen, die in einigen Spalten identisch sind
  

Zeit in vorgegebenem Intervall hochzählen
  

 



Alle ungeraden Zahlen markieren
  

Zeichen als Zahlen darstellen
  

 



Teilungszahlen und Sitzfolge nach dem Höchstzahlverfahren
  

Eingeblendete Zeilen mit Werten zählen
  

 



Makros in Abhängigkeit vom Zellennamen aufrufen
  

Zellen auf Kommentar überprüfen
  

 



Spalten bedingt summieren und Zellen formatieren
  

Text aus Textbox in Zellen aufteilen
  

 



Zellen vergleichen und markieren
  

Daten aus Textdatei gezielt in Zellen übernehmen
  

 



Zellen verbinden und trennen
  

Zellen bei Minuswerten schraffieren
  

 



Zeilen oberhalb der markierten Zellen einfügen
  

Drei Zellen rechts der aktiven Zelle markieren
  

 



Zellen vom Druck ausschließen
  

Zellenwert als Autofilter-Kriterienwert
  

 



Nur Zellen mit Inhalt in ComboBox listen
  

Verweise auf Zellen in geschlossener Arbeitsmappe erstellen
  

 



Zellen nach Schriftfarbe summieren
  

Füllen aller leeren Zellen mit einem Platzhalter
  

 



Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen
  

Zeilen mit Zellen mit rotem Hintergrund ausblenden
  

 



Anzahl der gelb hinterlegten Zellen ermitteln
  

Editieren von Zellen durch DoppelKlick verhindern
  

 



Nach Eingabe eines Kurzbegriffes Werte in Nebenzellen eintragen
  

Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen
  

 



Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln
  

Werte in Zellen mit vorgegebener Hintergrundfarbe addieren
  

 



Prüfung, ob Parallelzellen übereinstimmen
  

Zellen verbinden, mehrzeiligen Text eingeben und Höhe anpasssen
  

 



Kofpzeilenwerte angekreuzter Zellen multiplizieren
  

Zellen über Tabellenblatt-Schaltfläche multiplizieren
  

 



Wert aus A1 in mehrere Zellen übernehmen
  

Zellen für Eintrag auswählen und UserForm-ListBox aufrufen
  

 



Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen
  

Nur sichtbare Zellen addieren
  

 



Zellinhalte vor dem Verbinden der Zellen zusammenfassen
  

Blatt auswählen und Zellen nacheinander drucken
  

 



Leere und Zellen mit 0 aus-/einblenden
  

Zugriff auf Zellen unter Verwendung eines Bereichsnamens
  

 



Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen
  

Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten
  

 



Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern
  

Prüfung, welche Zellen nach Öffnen verändert wurden
  

 



Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen
  

Nur sichtbare Zellen in anderes Arbeitsblatt kopieren
  

 



Zeilenhöhe bei verbundenen Zellen anpassen
  

Einfügen von Zeilen vor und nach Zellen mit Fettdruck
  

 



Bei Zelleingabe andere Zellen füllen
  

Dialogaufruf, wenn zwei Zellen Werte enthalten
  

 



Gültigkeitsliste ohne Lerrzellen
  

Menüpunkt "Zellen einfügen..." im Kontextmenü deaktivieren
  

 



Zellen verbinden, ohne dass Werte verlorengehen
  

Befindet sich die aktive Zelle in einem bestimmten Bereich?
  

 



Werte eins bestimmten Monats summieren
  

Werte 1 und 0 in einem bestimmten Verhältnis zufällig anordnen
  

 



Alle Links zu einer bestimmten Arbeitsmappe löschen
  

Anzahl eines bestimmten Wochentages im Monat
  

 



Alle Dateien ab einem bestimmten Datum listen
  

Daten eines bestimmten Jahres filtern
  

 



Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen
  

xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen
  

 



Wert einer bestimmten Zelle merken
  

Werte aus UserForm-TextBox in bestimmten Formate übertragen
  

 



Zeichenfolgen ändern, wenn ein sie einen bestimmten Text enthalten
  

Werte eines bestimmten Wochentages und eines Zeitbereiches addieren
  

 



Bei Aktivierung einer bestimmten Tabelle in Vollbildmodus schalten
  

Anzahl eines Namens in einer bestimmten Schriftfarbe ermitteln
  

 



Anzahl der Einträge zu einer bestimmten Kalenderwoche
  

Datenmaske mit einem bestimmten Datensatz aufrufen
  

 



Aus Liste Anzahl der Januartage eines bestimmten Jahres listen
  

Letzte Zeile mit einem bestimmten Anfangsbuchstaben markieren