Zellen mit Hintergrundfarbe per Makro zählen

Sie möchten Zellinhalte addieren, aber dabei die Farbe der Zellen berücksichtigen? Das können Sie mit einem Makro erledigen. Die folgende Abbildung zeigt eine Datentabelle, in der einige Zellen mit einem gelben Hintergrund (gelbe Füllfarbe) hinterlegt sind:

Um nur die Zellen aus der aktuellen Markierung zu addieren, die eine gelbe Hintergrundfarbe besitzen, setzen Sie das folgende Makro ein:

Sub AddiereFarbzellen()
Dim Summe As Long
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.Interior.ColorIndex = 6 Then
 Summe = Summe + Zelle.Value
End If
Next Zelle
MsgBox "Die Farbsumme lautet: " & Summe
End Sub

Nach dem Start des Makros zeigt Ihnen Excel in einem Fenster die Summe der Zellen an, die mit gelber Hintergrundfarbe hinterlegt sind. Die folgende Abbildung zeigt, wie das Ergebnis aussieht, wenn Sie den zuvor vorgestellten Zellbereich markieren:

Um anstelle gelb hinterlegter Zellen andere Farben zu verwenden, passen Sie den Vergleichswert in der If-Abfrage an. Setzen Sie anstelle von 6 für Gelb andere Werte ein. Um herauszufinden, welchen Wert für ColorIndex Sie für eine Farbe Ihrer Wahl einsetzen müssen, können Sie ein kleines Makro verwenden. Klicken Sie eine Zelle Ihrer Wahl an und starten Sie das folgende Makro, um herauszufinden, mit welcher Hintergrundfarbe die aktive Zelle formatiert ist:

Sub AktiveFarbe()
MsgBox "Aktive Hintergrundfarbe: " & _
(Selection(1, 1).Interior.ColorIndex)
End Sub

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html