online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon tggermany vom 07.05.2019, 14:27 Options

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 !

Ähnliche Themen

Zellen formatieren ( Zellen verbinden )
manu661  16.02.2007 - 201 Hits - 3 Antworten

Zeichen in Zellen zählen und ggf. Zellen löschen
Toni165  28.03.2007 - 106 Hits - 2 Antworten

excel wenn bezug auf 2 zellen
Arne  18.06.2007 - 150 Hits - 1 Antwort

Ampelprinzip
joker61  18.07.2007 - 42 Hits - 1 Antwort

2 Zellen zusammenführen und dabei führende Nullen in der 2. Zelle einfügen
Computer-Werner  17.03.2008 - 82 Hits - 3 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Mon Jan 26 07:32:25 2026