Zählen der Anzahl von Zellen mit einer bestimmten Zellenfarbe mithilfe von VBA

  • Artikel
  • Gilt für::
    Excel for Office 365, Excel 2019, Excel 2016, Excel 2013, Excel 2010, Microsoft Office Excel 2007, Microsoft Office Excel 2003

Zusammenfassung

Auf der Registerkarte "Microsoft Excel-Formeln " wissen wir, dass in der Kategorie " Weitere Funktionen>statistisch" eine Funktion namens ZÄHLENWENN vorhanden ist, die die Anzahl der Zellen innerhalb eines Bereichs zählt, die eine bestimmte Bedingung erfüllen. Kriterien für diese Funktion sind auf Text oder Zahlen beschränkt. Mit VBA können wir jedoch eine Funktion erstellen, um die Anzahl der Zellen mit anderen Kriterien zu zählen, z. B. die Zellenfarbe.

ZÄHLENWENN

Weitere Informationen

Mit VBA kann eine benutzerdefinierte Funktion (User Defined Function, UDF) erstellt und in einer Add-In-Datei gespeichert werden, sodass sie in anderen Arbeitsmappen verwendet und auf andere Computer übertragen werden kann.

Erstellen einer UDF

Hier sind die Schritte zum Erstellen eines UDF zum Zählen der Zellenfarbe:

  1. Öffnen Sie Microsoft Excel, und drücken Sie dann ALT+F11, um das VBE-Fenster (Visual Basic Editor) anzuzeigen.

  2. Wählen Sie im Menü "Einfügen" die Option "Modul " aus, um ein Modul zu erstellen. Geben Sie dann das folgende Skript ein:

    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

    Wählen Sie im Menü

  3. Schließen Sie das VBE-Fenster, um zu Excel zurückzukehren.

  4. Um die UDF zu testen, erstellen Sie Beispieldaten, die eine Spalte mit Zellen in verschiedenen Farben enthalten.

  5. Schreiben Sie in Zelle D3 die folgende Funktion:

=CountCcolor(range_data,criteria)

  • Wählen Sie im Argument "range_data" die Zelle C2 bis C51 aus.

  • Wählen Sie im Argument "Kriterien" zelle F1 aus.

    Schreiben Sie in Zelle D3 die Folgendes: =CountCcolor

  1. Drücken Sie EINGABE. Das Ergebnis in Zelle F2 ist 6. Dies bedeutet, dass die Anzahl der blau schattierten Zellen 6 beträgt.

    Drücken Sie die EINGABETASTE, und in Zelle F2 ist das Ergebnis 6. Dies bedeutet, dass die Anzahl der Zellen mit blauer Zellenfarbe 6 Zellen beträgt.

  2. Sie können testen, indem Sie andere Farben verwenden. Ändern Sie die Farbe in Zelle F1 mit einer beliebigen Farbe aus den Daten, indem Sie " Startfüllfarbe>" verwenden.

    Sie können auch eine andere Farbe testen. Ändern Sie die Farbe in Zelle F1 mit einer beliebigen Farbe aus den Daten, indem Sie

  3. Sie können die UDF auch zippen, damit die Funktion in einer anderen Arbeitsmappe oder auf einem anderen Computer verwendet werden kann. Führen Sie hierfür die folgenden Schritte aus:

    Schritt 1: Speichern der Arbeitsmappe

    a. Wählen Sie "Datei" und dann "Speichern unter" aus. (Wählen Sie bei Bedarf "Durchsuchen " aus.)

    b. Wählen Sie Excel Add-In (XLAM) als Format aus, und geben Sie der Datei einen Namen, z. B. CountCcolor.

    Hinweis

    Sie können Ihre Add-In Datei an beliebiger Stelle speichern. Damit es jedoch als Add-In in Ihrem Excel-Programm aufgeführt wird, speichern Sie es am Standardspeicherort. In Windows 7 lautet der Standardspeicherort für jede Version von Microsoft Excel: C:\Users\RADDINI\AppData\Roaming\Microsoft\AddIns

    Schritt 2: Installieren des Add-Ins

    a. Öffnen Sie Microsoft Excel auf dem Computer, auf dem Sie das Add-In installieren möchten.

    b. Öffnen Sie das Dialogfeld Add-Ins, indem Sie excel-Add-Ins für Excel 2013 und höher auf der Registerkarte "Entwicklertools " auswählen. (Add-Ins in Excel 2010.)

    c. Wählen Sie im Dialogfeld "Add-Ins " die Option " Durchsuchen" aus. Klicken Sie im Dialogfeld Add-In auf die Schaltfläche

    d. Wechseln Sie zu dem Dateispeicherort, an dem die Add-In Datei gespeichert ist (z. B. ein USB-Laufwerk oder ein cloudbasierter Ordner). Wählen Sie die Datei und dann "Öffnen" aus.

    e. Stellen Sie im Dialogfeld Add-Ins sicher, dass das Add-In-Kontrollkästchen deaktiviert ist. Wählen Sie dann OK aus. Stellen Sie im Dialogfeld Add-Ins sicher, dass das Add-In-Kontrollkästchen deaktiviert ist. Wählen Sie dann

Die Count Cell Color UDF ist installiert und einsatzbereit. Sie können jederzeit auf diese Funktion zugreifen, indem Sie den Cursor in eine beliebige Zelle des Arbeitsblatts setzen und Folgendes eingeben:

=CountCcolor(range_data,criteria)

Haftungsausschluss für Inhalte von Community-Lösungen

DIE MICROSOFT CORPORATION UND/ODER IHRE JEWEILIGEN LIEFERANTEN MACHEN KEINE ANGABEN ZUR EIGNUNG, ZUVERLÄSSIGKEIT ODER GENAUIGKEIT DER HIERIN ENTHALTENEN INFORMATIONEN UND ZUGEHÖRIGEN GRAFIKEN. ALLE DIESE INFORMATIONEN UND ZUGEHÖRIGEN GRAFIKEN WERDEN OHNE JEGLICHE GARANTIE BEREITGESTELLT. MICROSOFT UND/ODER SEINE JEWEILIGEN LIEFERANTEN SCHLIEßEN HIERMIT ALLE GARANTIEN UND BEDINGUNGEN IN BEZUG AUF DIESE INFORMATIONEN UND DAMIT VERBUNDENEN GRAFIKEN AB, EINSCHLIEßLICH ALLER IMPLIZIERTEN GARANTIEN UND BEDINGUNGEN DER HANDELSÜBLICHKEIT, EIGNUNG FÜR EINEN BESTIMMTEN ZWECK, GESCHÄFTLICHER AUFWAND, TITEL UND NICHTVERLETZUNG VON RECHTEN. SIE ERKLÄREN SICH AUSDRÜCKLICH DAMIT EINVERSTANDEN, DASS MICROSOFT UND/ODER SEINE LIEFERANTEN IN KEINEM FALL FÜR DIREKTE, INDIREKTE, STRAF-, ZUFÄLLIGE, BESONDERE, FOLGESCHÄDEN ODER SCHÄDEN JEGLICHER ART HAFTBAR GEMACHT WERDEN, EINSCHLIEßLICH, ABER NICHT BESCHRÄNKT AUF SCHÄDEN FÜR DEN VERLUST DER NUTZUNG, DATEN ODER GEWINNE, DIE SICH AUS DER VERWENDUNG ODER IN IRGENDEINER WEISE ERGEBEN, DIE MIT DER VERWENDUNG DER HIERIN ENTHALTENEN INFORMATIONEN UND ZUGEHÖRIGEN GRAFIKEN VERBUNDEN IST, OB VERTRAGS-, DELIKTS-, FAHRLÄSSIGKEITS-, HAFTUNGS- ODER SONSTIGE HAFTUNG, AUCH WENN MICROSOFT ODER EINER SEINER LIEFERANTEN AUF DIE MÖGLICHKEIT VON SCHÄDEN HINGEWIESEN WURDE.