Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1416to1420
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1416to1420
1416to1420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summe - Hintergrundfarbe

Summe - Hintergrundfarbe
30.03.2015 09:50:56
Klaus
Hallo Forum
Ich google mir schon seit Tagen die Finger blutig und probiere rum, aber ich komme einfach auf keine Lösung, und deshalb frage ich euch einmal.
Ich brauche Lösung für mein Problem.
Ich habe eine Lagerbestandsdatei (hier nur eine Beispieldatei). Habe hier die Ergebnisse mit der Hand eingetragen.
Datei:
https://www.herber.de/bbs/user/96714.xlsx
Ich möchte, dass mir die Summe, in Abhängigkeit von den Hintergrundfarben berechnet wird.
Mit bedingten Formatierungen kann ich es nicht machen, da ich mich auf keine Wert festlegen kann (haben kein min und kein max – Wert).
Kann mir dabei irgendjemand helfen
Danke
Klaus

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Summe - Hintergrundfarbe
30.03.2015 10:09:46
ransi
Hallo Klaus
Das Archiv ist voll mit Lösungen zum Thema Farbsumme(), SummewennFarbe() und Ähnliche.
Im Prinzip sind das alles VBA Lösungen in denen mit Schleifen über bestimmte Bereich alle Zellen abgefragt werden ob sie die richtige Farbe haben. Wenn ja wird addiert.
Also alles irgendwie wie dies:
Tabelle1

 ABCDEFG
1 Lager 1Lager 2Lager 3Lager 4Lager 5 
2Bestand a15300    
3Bestand b550    
4Bestand c3300    
5Bestand d12012    
6Bestand e58    
7       
8 Summe rotSumme rotSumme rotSumme rotSumme rot 
9 2312000 
10       
11 Summe grünSumme grünSumme grünSumme grünSumme grün 
12 125658000 
13       
14       

Formeln der Tabelle
ZelleFormel
B9=Farbsumme(B8;B2:B6)
B12=Farbsumme(B11;B2:B6)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Dazu muss dieser Code in ein ganz normales Modul:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function Farbsumme(Farbzelle As Range, ParamArray Bereiche() As Variant)
    Dim Zelle As Range
    Dim Bereich
    Dim dblTmp As Double
    Dim lngFarbe As Long
    lngFarbe = Farbzelle.Interior.Color
    For Each Bereich In Bereiche
        For Each Zelle In Bereich.Cells
            If Zelle.Interior.Color = lngFarbe Then
                If IsNumeric(Zelle.Value) Then dblTmp = dblTmp + Zelle.Value
            End If
        Next Zelle
    Next Bereich
    Farbsumme = dblTmp
End Function


Die Berechnung startet aber nur wenn Werte geändert werden. Eine Änderung der Farbe reicht nicht aus um eine Neuberechnung anzuschubsen.
ransi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige