10.02.2020, 16:39
Hallo zusammen!
Ausgangssituation: Es sind zwei Spalten gegeben. In Spalte A wird in eine Zelle ein "ja" eingetippt, wenn ein bestimmtes Ereignis eintritt. Daraufhin (wird in der selben Zeile) die entsprechende Zelle der Spalte B farblich (hier: Colorindex: 43) hinterlegt. Dies erfolgt gemäß bedingter Formatierung. Soweit so gut.
Des Weiteren addiert die folgende Funktion die Werte von farblich hinterlegte Zellen:
Function Farbsumme(Bereich As Range, Farbe As Integer)
Dim Zelle As Range
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme = Farbsumme + Zelle
End If
Next Zelle
End Function
PROBLEM: Diese Funktion funktioniert nur, wenn ich die Zellen manuell farblich hinterlege; Bei meinen eingefärbten Zellen, gemäß der obigen bedingten Formatierung, kommt immer nur der Wert Null "0" raus.
FRAGE: Was kann ich tun, damit meine Farbsumme bei den bedingt formatierten Zellen funktioniert?
P.s.: Ich bin mit Excel und VBA noch nicht so ganz vertraut, daher dankbar für mögliche Lösungen und Erklärungen
Ausgangssituation: Es sind zwei Spalten gegeben. In Spalte A wird in eine Zelle ein "ja" eingetippt, wenn ein bestimmtes Ereignis eintritt. Daraufhin (wird in der selben Zeile) die entsprechende Zelle der Spalte B farblich (hier: Colorindex: 43) hinterlegt. Dies erfolgt gemäß bedingter Formatierung. Soweit so gut.
Des Weiteren addiert die folgende Funktion die Werte von farblich hinterlegte Zellen:
Function Farbsumme(Bereich As Range, Farbe As Integer)
Dim Zelle As Range
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme = Farbsumme + Zelle
End If
Next Zelle
End Function
PROBLEM: Diese Funktion funktioniert nur, wenn ich die Zellen manuell farblich hinterlege; Bei meinen eingefärbten Zellen, gemäß der obigen bedingten Formatierung, kommt immer nur der Wert Null "0" raus.
FRAGE: Was kann ich tun, damit meine Farbsumme bei den bedingt formatierten Zellen funktioniert?
P.s.: Ich bin mit Excel und VBA noch nicht so ganz vertraut, daher dankbar für mögliche Lösungen und Erklärungen