Zelle bedingt formatieren, dann Rechnung in der nur diese Zellen verwendet werden
Hi
habe folgende Problemstellung:
- ich möchte in einer Rechnung nur die Zellen miteinander berechenen , welche eine bestimmte Frabe durch eine bedingte Formatierung erhalten haben.
Bsp. wenn der Wert in der Zelle unter 100 liegt wird die Zelle gelb markiert, dann möchte ich die Summe aller gelb markierten Zellen. Kann hier jemand helfen ?
(wie die bedingte Formatierung geht ist mir bekannt !, es geht nur um die Summe!)
Vielen Dank
Antwort schreiben
Antwort 1 von Aliba vom 07.05.2019, 15:52 Options
Hi,
SUMMEWENN(A1:A100;"<100";A1:A100)
CU Aliba
Antwort 2 von tggermany vom 07.05.2019, 16:27 Options
Das löst zwar das Problem der Berechnung des Wertes unter 100 , war aber nicht meine Frage , denn es fehlt der Bezug zur Zellfarbe.
Zweifelsohne ist eine Rechnung nach vorgegbenen Muster richtig so, aber ich brauche den Bezug zur Farbe der Zelle !
Aber trotzdem danke
Antwort 3 von rainberg vom 07.05.2019, 16:38 Options
Hallo tggermany,
ich kann Dir nur raten den Vorschlag von Alibi zu verwenden,
denn:
1. bietet es sich geradezu an, die für die Bedingte Formatierung verwendeten Kriterien auch für die Summierung zu verwenden.
2. Das Auslesen der Bedingten Formatierung per VBA erfordert einen Aufwand, der den Nutzen nicht rechtfertigt.
Gruß
Rainer
Antwort 4 von tggermany vom 07.05.2019, 17:19 Options
Würde es einfacher gehen, wenn nicht aus einer bedingten Formatierung ausgeleen wird, sondern einfach die Eigenschaft der Zelle verglichen wird.
Bsp. Wenn Zelle rot dann berechnen, wenn weiß dann nicht ?
Oder stellt auch dies einen zu großen Aufwand dar ?
Vielen Dank und Gruß
Tggermany
Antwort 5 von rainberg vom 07.05.2019, 17:48 Options
Hallo tggermany,
....ja, das wäre einfacher.
Folgenden Code könntest Du für Deinen speziellen Zweck anpassen:
Option Explicit
Sub Summe_rot()
Dim rngC As Range, rngBer As Range, dblSum As Double
Set rngBer = Range("A1:A10") ' Bereich anpassen
For Each rngC In rngBer
If rngC.Interior.ColorIndex = 3 Then
dblSum = dblSum + rngC.Value
End If
Next
MsgBox dblSum
End Sub
Gruß
Rainer
Antwort 6 von tggermany vom 08.05.2019, 10:11 Options
Vielen Dank
genau so wollte ich das !