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

Farbsumme

Forumthread: Farbsumme

Farbsumme
Reinhardt
Hallo, ich habe eine tolle Farbsummenfunktion im Netz gefunden.
Wer kann mir weiterhelfen:
3 steht für Rot,
welche Ziffer steht für schwarz?
Gruß Reinhardt.
' In Zelle=Farbsumme(A1:A10;3) für Rot
Function FarbsummeS(Bereich As Range, Farbe As Integer)
'   Schriftfarbe
Dim Zelle As Object
Application.Volatile
For Each Zelle In Bereich
If Zelle.Font.ColorIndex = Farbe Then
FarbsummeS = FarbsummeS + Zelle
End If
Next
End Function

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Farbsumme
31.08.2009 14:48:00
JogyB
Hi.
Schwarz ist 1.
Gruss, Jogy
AW: Farbsumme
31.08.2009 14:50:16
Hajo_Zi
Halo Reinhartd,
ein Blick in die Hilfe Reich ColorIndex
Tabelle1
 AB
1  1
2  2
3  3
4  4
5  5
6  6
7  7
8  8
9  9
10  10
11  11
12  12
13  13
14  14
15  15
16  16
17  17
18  18
19  19
20  20
21  21
22  22
23  23
24  24
25  25
26  26
27  27
28  28
29  29
30  30
31  31
32  32
33  33
34  34
35  35
36  36
37  37
38  38
39  39
40  40
41  41
42  42
43  43
44  44
45  45
46  46
47  47
48  48
49  49
50  50
51  51
52  52
53  53
54  54
55  55
56  56
57  Index

Tabellendarstellung in Foren Version 4.21



Anzeige
AW: Farbsumme
31.08.2009 16:23:27
Hajo_Zi
Hallo Reinhard,
oder mache es ganz ohne Zahl. In dem Du die Zelle mit der Farbe auswählst.
Function FarbsummeSZelle(Bereich As Range, Farbzelle As Object) As Double
'* H. Ziplies                                     *
'* 10.02.08                                       *
'* erstellt von HajoZiplies@web.de                *
'* http://Hajo-Excel.de/
' Schriftfarbe, die Farbe wird anhand der zweiten Zelle bestimmt
Dim RaZelle As Object
Application.Volatile
For Each RaZelle In Bereich
If RaZelle.Font.Color = Farbzelle.Font.Color Then
FarbsummeSZelle = FarbsummeSZelle + RaZelle
End If
Next RaZelle
End Function

Gruß Hajo
Anzeige
;
Anzeige

Infobox / Tutorial

Farbsumme in Excel: So funktioniert's


Schritt-für-Schritt-Anleitung

Um die Farbsumme in Excel zu nutzen, kannst du eine benutzerdefinierte VBA-Funktion verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und gehe zu Entwicklertools. Falls dieser Tab nicht sichtbar ist, aktiviere ihn über Datei -> Optionen -> Menüband anpassen.

  2. Klicke auf Visual Basic, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu: Rechtsklick auf VBAProject (DeinDokument), dann Einfügen -> Modul.

  4. Kopiere den folgenden Code in das Modul:

    Function FarbsummeS(Bereich As Range, Farbe As Integer)
       Dim Zelle As Object
       Application.Volatile
       For Each Zelle In Bereich
           If Zelle.Font.ColorIndex = Farbe Then
               FarbsummeS = FarbsummeS + Zelle
           End If
       Next
    End Function
  5. Schließe den VBA-Editor und gehe zurück zu deiner Excel-Tabelle.

  6. Verwende die Funktion in einer Zelle, z.B. =FarbsummeS(A1:A10;3) für die Summe aller roten Zellen.


Häufige Fehler und Lösungen

  • Fehler: Die Funktion gibt #NAME? zurück.

    • Lösung: Stelle sicher, dass du die VBA-Funktion korrekt eingegeben hast und dass die Entwicklertools aktiviert sind.
  • Fehler: Die Farbe wird nicht erkannt.

    • Lösung: Überprüfe, ob du den richtigen ColorIndex verwendest. Für Schwarz ist der Wert 1.

Alternative Methoden

Anstatt die Farbe über die ColorIndex-Nummer zu bestimmen, kannst du auch eine Zelle mit der gewünschten Farbe auswählen. Hier ist eine Alternative:

  1. Erstelle eine neue Funktion im VBA-Editor:

    Function FarbsummeSZelle(Bereich As Range, Farbzelle As Object) As Double
       Dim RaZelle As Object
       Application.Volatile
       For Each RaZelle In Bereich
           If RaZelle.Font.Color = Farbzelle.Font.Color Then
               FarbsummeSZelle = FarbsummeSZelle + RaZelle
           End If
       Next RaZelle
    End Function
  2. Verwende die Funktion in deiner Tabelle: =FarbsummeSZelle(A1:A10;B1), wobei B1 die Zelle mit der gewünschten Farbe ist.


Praktische Beispiele

Um die Farbsumme in Excel anzuwenden, kannst du verschiedene Farbwerte ausprobieren:

  • Für die Summe roter Zellen: =FarbsummeS(A1:A10;3)
  • Für die Summe schwarzer Zellen: =FarbsummeS(A1:A10;1)

Diese Beispiele zeigen, wie flexibel die Farbsummenfunktion ist, um verschiedene Bedingungen zu erfüllen.


Tipps für Profis

  • Achte darauf, dass die Schriftfarbe der Zellen, die du summierst, konsistent ist.
  • Du kannst die Farbsummenfunktion auch mit anderen Excel-Funktionen kombinieren, um komplexere Berechnungen durchzuführen.
  • Speichere deine Datei als .xlsm, um die VBA-Funktionen zu behalten.

FAQ: Häufige Fragen

1. Wie finde ich den richtigen ColorIndex für andere Farben?
Du kannst die Farbe in Excel formatieren und dann den ColorIndex in den VBA-Hilfefunktionen nachschlagen.

2. Funktioniert die Farbsumme auch in Excel Online?
VBA-Funktionen sind in Excel Online nicht verfügbar. Du musst die Desktop-Version von Excel verwenden.

3. Kann ich die Farbsumme auch für Hintergrundfarben verwenden?
Die oben genannten Funktionen beziehen sich nur auf die Schriftfarbe. Für Hintergrundfarben benötigst du eine angepasste Funktion.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige