Zellen mit Hintergrundfarbe per Makro zählen

21. August 2010
Martin Althaus Von Martin Althaus, Excel, Office ...

Wie Sie Farbsummen bilden

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

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"