Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Aus farbigen Zahlen Summe bilden

Aus farbigen Zahlen Summe bilden
12.06.2009 20:18:25
Eby
Hallo!
Heute habe ich eine Frage, bei der ich nicht weiter gekommen war.
In einer Spalte stehen Zahlen. Unten sollen die Summen gebildet werden.
Das Problem ist nun. Die Zahlen wurden blau, rot, gelb von Hand gefärbt.
D.h. es sollen die Zahlen nach den Farben zusammen gezählt werden.
Wie geht das bloß?
Beste Grüße!
Eby
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aus farbigen Zahlen Summe bilden
12.06.2009 20:31:45
CarstenAS
Hallo
mit dieser funktion werden alle zahlen mit roter Farbe addiert

Function CountFont(Bereich As Range, iIndex As Integer) As Long
Application.Volatile
For Each Bereich In Bereich
If Bereich.Font.ColorIndex = 3 Then
CountFont = CountFont + Bereich
End If
Next Bereich
End Function


gruß

Anzeige
AW: Aus farbigen Zahlen Summe bilden
13.06.2009 15:05:46
Eby
Hallo!
CarstenAS hatte die Lösung - DANKE!!!
Ich habe die Musterdatei hoch geladen:
https://www.herber.de/bbs/user/62408.xls
Beste Grüße!
AW: Aus farbigen Zahlen Summe bilden
12.06.2009 20:33:47
robert
hi,
hier ein beispiel
gruß
robert
https://www.herber.de/bbs/user/62396.xls
Anzeige
AW: Aus farbigen Zahlen Summe bilden
12.06.2009 21:29:20
Eby
Hallo!
Noch komme ich damit nicht zurecht.
Ich will keine Hintergründe zusammen zählen.
Leider kann ich auch keine Hilfszellen nutzen
Es sind die Standardfarben - blau, rot, gelb und grün
Hat noch jemand eine Idee?
AW: Aus farbigen Zahlen Summe bilden
12.06.2009 21:47:50
Herbert
Hallo Ebi
Habe die Funktion auf der Herber-Cd gefunden:

Function CountColor(rng As Range, iColor As Integer)
Dim rngAct As Range
Dim iCount As Integer
For Each rngAct In rng.Cells
If rngAct.Font.ColorIndex = iColor And _
Not IsEmpty(rngAct) Then
iCount = iCount + 1
End If
Next rngAct
CountColor = iCount
End Function


Farbindex: Rot = 3, Blau = 5, Gelb = 6
Gruß Herbert

Anzeige
AW: Aus farbigen Zahlen Summe bilden
12.06.2009 22:14:16
Eby
Danke an alle!
Leider muss ich weg.. aber morgen schaue ich mir alles näher an.
Und dann berichte ich wieder.
Bis dann!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

Farbige Zahlen in Excel summieren


Schritt-für-Schritt-Anleitung

Um die Summe von farbigen Zellen in Excel zu berechnen, kannst Du eine benutzerdefinierte Funktion in VBA erstellen. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Wähle im Menü Einfügen die Option Modul.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Function SumByColor(rng As Range, color As Range) As Double
        Dim cell As Range
        Dim total As Double
        total = 0
        For Each cell In rng
            If cell.Interior.Color = color.Interior.Color Then
                total = total + cell.Value
            End If
        Next cell
        SumByColor = total
    End Function
  4. Schließe den VBA-Editor und gehe zurück zu Deiner Excel-Tabelle.

  5. Um die Summe der farbigen Zellen zu berechnen, verwende die Funktion in einer Zelle. Zum Beispiel:

    =SumByColor(A1:A10, B1)

    Hierbei wird die Summe der Zellen im Bereich A1:A10 berechnet, die die gleiche Farbe wie die Zelle B1 haben.


Häufige Fehler und Lösungen

  • Fehler: Nichts wird summiert.

    • Stelle sicher, dass die Zellen tatsächlich die gleiche Farbe haben, die Du in der Vergleichszelle angegeben hast.
  • Fehler: Funktion nicht gefunden.

    • Überprüfe, ob die Funktion korrekt im VBA-Editor eingefügt wurde und speichere die Datei als .xlsm, um Makros zu aktivieren.

Alternative Methoden

Falls Du keine VBA-Funktion verwenden möchtest, kannst Du die Funktion ZÄHLENWENN in Kombination mit Hilfszellen nutzen. Erstelle eine Hilfszelle, um die Farben zu zählen und addiere dann die entsprechenden Werte:

  1. Erstelle eine Hilfsspalte, die die Farbwerte in Form von Zahlen anzeigt.
  2. Verwende SUMMEWENN, um die Werte basierend auf den Zellen in der Hilfsspalte zu summieren.

Eine andere Möglichkeit ist, die SUBTOTAL-Funktion zu verwenden, wenn Du die Daten filtern möchtest.


Praktische Beispiele

Angenommen, Du hast folgende Zellen in Spalte A:

  • A1: 10 (rot)
  • A2: 20 (blau)
  • A3: 30 (rot)
  • A4: 40 (gelb)

Um die Summe der roten Zahlen zu berechnen, kannst Du die vorher erstellte Funktion SumByColor verwenden, indem Du die Zelle mit der roten Farbe als Referenz angibst.


Tipps für Profis

  • Wenn Du oft mit farbigen Zellen arbeitest, speichere Deine VBA-Funktion in einer persönlichen Makroarbeitsmappe, um sie in allen Excel-Dateien verwenden zu können.
  • Experimentiere mit verschiedenen Farbwerten, um die Funktion an Deine Bedürfnisse anzupassen.
  • Halte Deine Excel-Version stets auf dem neuesten Stand, um von den neuesten Funktionen zu profitieren.

FAQ: Häufige Fragen

1. Kann ich die Summe nur für bestimmte Farben berechnen? Ja, indem Du die Farbe in der Vergleichszelle änderst, kannst Du die Summe für jede gewünschte Farbe berechnen.

2. Funktioniert das auch in Excel Online? Leider sind VBA-Funktionen in Excel Online nicht verfügbar. Du musst eine Desktop-Version verwenden.

3. Wie kann ich die Funktion anpassen, um auch andere Eigenschaften der Zellen zu berücksichtigen? Du kannst die If-Bedingung im VBA-Code erweitern, um zusätzliche Eigenschaften wie Schriftart oder Hintergrundfarbe zu berücksichtigen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige