Guten Tag zusammen
Ich habe gerade weder die Geduld noch die Nerven folgendes hinzukriegen:
Ich möchte ganz einfach die farblich hinterlegten Zellen eines Zeilenbereichs am Ende zusammenzählen.
zb. Zeile 2, im Bereich A2:BF2 alle türkis hinterlegten Zellen addieren und in der Zelle BG2 das Resultat.
Zeile 3 dann im selben Bereich alle gelb markierten Zellen, usw.
sicher ganz einfach - wahrscheinlich für mich noch zu früh am Morgen...
Danke für eure Feedbacks
[
attachment=37319]
Moin!
Suchwort ist
Farbsumme Excel
Ich rate dringend davon ab, weil eine Farbänderung keine Neuberechnung auslöst!
Gruß Ralf
Hola,
die Färbung scheint einer Logik zu folgen. Kann man die abbilden und die Färbung per bedingter Formatierung erzeugen?
Ansonsten sollte man das Auslesen von Farben in Excel eher vermeiden.
Gruß,
steve1da
Ich hab das schon mit älteren Excel Versionen per VBA Macro gemacht. Die ähnliche Funktion von neueren Excel-Versionen hab ich noch nicht probiert, weil meine VBA-Macros seit Jahren problemlos funktionieren.
Leider ist es wirklich so das bei lediglich Änderung der Hintergrundfarbe keine automatische Neuberechung durchgeführt wird. Auch sind nicht alle Hintergrundfarben "zählbar". Warum das so ist, weis ich nicht wirklich.
Ich benutze diese farbigen Zellen um Uhrzeitgenaue Personalplanung zu machen.
Hier der VBA dazu, ich hoffe das hilft weiter:
' Formelschreibweise: =ZellenFarbe(Zelle)
' Gibt die Farbindexnummer des Hintergrunds der angegebenen Zelle zurück
' Wenn keine weiteren Berechnung durchgeführt werden bitte Taste F9 drücken
'
Function ZellenFarbe(Zelle As Range) As Byte
Application.Volatile '=Diese Funktion Berechnet jedes Mal neu, wenn in einer beliebigen Zelle des Arbeitsblattes eine Berechnung durchgeführt wird.
If Zelle.Interior.ColorIndex > 0 Then ZellenFarbe = Zelle.Interior.ColorIndex Else: ZellenFarbe = 0
End Function
'
' Formelschreibweise: =ZählenZellenFarbe(Bereich;FarbNummer)
' Gibt die Anzahl der Zellen einer bestimmten Farbindexnummer des Hintergrunds zurück
' Wenn keine weiteren Berechnung durchgeführt werden bitte Taste F9 drücken
'
Function ZählenZellenFarbe(Bereich As Range, farbe As Long) As Double
Application.Volatile '=Diese Funktion berechnet jedes Mal neu, wenn in einer beliebigen Zelle des Arbeitsblattes eine Berechnung durchgeführt wird.
Dim Zelle As Range
ZählenZellenFarbe = 0
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = farbe Then
ZählenZellenFarbe = ZählenZellenFarbe + 1
End If
Next
End Function
In der Anwendung sieht dann der Zelleneintrag wie folgt aus und gibt die Anzahl der Zellen im Bereich "Assistent" aus, die der Farbe in der Zelle (B59) entspricht:
=ZählenZellenFarbe(Assistent;zellenFarbe(B59))
Voraussetzung ist, das vorher mit der Funktion "=ZellenFarbe(Zelle)" von Hand geprüft wird, ob die gewählte Farbe sich überhaupt zählen lässt.
Gruß und wech
(23.02.2021, 13:29)ReinerMK schrieb: [ -> ]Auch sind nicht alle Hintergrundfarben "zählbar". Warum das so ist, weis ich nicht wirklich.
Da kann Dir geholfen werden.
Du prüfst den .ColorIndex.
Der stammt aus der Urzeit der ersten Farbmonitore und umfasst 56 Farben der Farbpalette.
"Aktuell" ist es aber die .Color-Eigenschaft.
Die umfasst 255^3 aka 16.581.375 Farben. (+1, nämlich den RGB 0)