Cindy hat ein vollständig formatiertes Arbeitsblatt, das in vielen Zellen Farbe verwendet.

Einige der Zellen enthalten Werte. viele nicht. Sie braucht einen Weg, um alle farbigen Zellen zu zählen, die leer sind, und fragt sich, ob es einen schnellen Weg gibt, dies zu tun.

Es gibt verschiedene Möglichkeiten, um die benötigten Informationen zu erhalten. Eine Möglichkeit besteht darin, die folgenden Schritte auszuführen:

  1. Finden Sie heraus, welche Farbe Sie für Ihre Zählung verwenden möchten.

  2. Drücken Sie F5. Excel zeigt das Dialogfeld Gehe zu an.

  3. Klicken Sie auf die Schaltfläche Spezial. Excel zeigt das Dialogfeld Gehe zu Spezial an.

(Siehe Abbildung 1.)

  1. Aktivieren Sie das Optionsfeld Leerzeichen.

  2. OK klicken. Jetzt sind alle leeren Zellen im Arbeitsblatt ausgewählt.

  3. Drücken Sie Strg + F. Excel zeigt die Registerkarte Suchen des Dialogfelds Suchen und Ersetzen an.

  4. Klicken Sie auf die Schaltfläche Optionen, um das Dialogfeld zu erweitern. (Siehe Abbildung 2.)

  5. Klicken Sie auf die Schaltfläche Format. Excel zeigt das Dialogfeld Format suchen an.

  6. Stellen Sie sicher, dass die Registerkarte Füllen angezeigt wird. (Siehe Abbildung 3.)

  7. Klicken Sie auf die Farbe, nach der Sie suchen möchten. (Dies ist die Farbe, die Sie in Schritt 1 festgelegt haben.)

  8. Klicken Sie auf OK, um das Dialogfeld Format suchen zu schließen.

  9. Klicken Sie auf Alle finden.

Wenn Sie diese Schritte ausführen, zeigt Excel unten im Dialogfeld Suchen und Ersetzen an, wie viele Zellen gefunden wurden, die Ihrer Farbe entsprechen. Da Sie die Suche nur mit ausgewählten leeren Zellen gestartet haben, sind die resultierenden Zellen alle leeren Zellen, die mit der Farbe gefüllt sind.

Wenn Sie diese Anzahl einige Male bestimmen müssen, können diese Schritte natürlich sehr schnell sehr mühsam werden. In solchen Fällen ist es besser, ein Makro zu verwenden. Das folgende Makro durchläuft jede leere Zelle in dem von Ihnen ausgewählten Bereich und prüft, ob sie ein Muster oder eine Farbe enthält und leer ist. Wenn die Bedingungen erfüllt sind, wird ein Zähler für diese Farbe erhöht.

Sub CountBlankColors1()

Dim c As Range     Dim J As Integer     Dim ColorCount(56) As Long

ActiveSheet.Range("a1").CurrentRegion.SpecialCells(xlCellTypeBlanks).Select

For Each c In Selection         With c.Interior             If .Pattern <> xlNone Then                 If .ColorIndex <> xlNone Then                     If IsEmpty(c) Then                         ColorCount(.ColorIndex) = _                           ColorCount(.ColorIndex) + 1                     End If                 End If             End If         End With     Next c

sTemp = "These are the color counts" & vbCrLf & vbCrLf     For J = 0 To 56         If ColorCount(J) > 0 Then             sTemp = sTemp & "Color " & J & ": " & ColorCount(J) & vbCrLf         End If     Next J

MsgBox sTemp End Sub

Natürlich möchten Sie möglicherweise nicht verschiedene Farben einzeln zählen.

Stattdessen möchten Sie vielleicht einfach wissen, wie viele leere Zellen insgesamt mit einer Farbe gefüllt sind. In diesem Fall wird das Makro viel einfacher.

Sub CountBlankColors2()

Dim c As Range     Dim x As Long

x = 0     ActiveSheet.Range("a1").CurrentRegion.SpecialCells(xlCellTypeBlanks).Select

For Each c In Selection         If c.Interior.Pattern <> xlNone Then             If c.Interior.ColorIndex <> xlNone Then                 If IsEmpty(c) Then x = x + 1             End If         End If     Next c     MsgBox "Number of colored blank cells: " & x End Sub

Es ist zu beachten, dass diese Ansätze nicht berücksichtigen, ob die Zelle durch die Verwendung eines bedingten Formats gefärbt wird oder nicht.

(Tatsächlich berücksichtigen sie überhaupt keine bedingten Formate.)

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (12581) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365.