AW: Durch aktuellen Monat teilen
20.03.2023 00:37:41
Mathias
Hallo Gerd,
tut mir leid, dass ich erst jetzt Antworte.
Anhand des Bildes verstehe ich, warum du keine Bedingung für die Farben verwenden kannst.
Also es gibt zwei Möglichkeiten.
Bei beiden Möglichkeiten musst du die Zahl dann immer mit Druck auf "F9" aktuallisieren.
Bei beiden Möglichkeiten musst du die Datei als ".xlsm" speichern.
Bei einer Möglichkeit benötigst du Hilfszellen.
Bei beiden Möglichkeiten gehe ich davon aus, dass du das Standard Hellgrün verwendest. Ansonsten musst du einen Parameter anpassen.
Möglichkeit 1:
Du erstellst im VBA Editor ein Modul und kopierst dort folgenden Code hinein:
Option Explicit
Public Function GetGreenSum(ByVal Range As Range, Optional ByVal VolatileParameter As Variant) As Integer
Dim intSumme As Integer
Dim rngZelle As Range
intSumme = 0
For Each rngZelle In Range.Cells
If rngZelle.Interior.ColorIndex = 43 Then
intSumme = intSumme + rngZelle.Value2
End If
Next
GetGreenSum = intSumme
End Function
Dann schreibst du in C10 folgende Formel:
=GetGreenSum(A3:J8;JETZT())
Das war es dann auch schon.
Möglichkeit 2:
Du definierst ein neuen Namen und nennst ihn "GetFarbe"
Diesen lässt du auf folgende Formel beziehen:
=ZELLE.ZUORDNEN(63;INDIREKT("ZS(-11)";FALSCH))
Dann schreibst du den Range "L3:U7" und "L8:M8" folgende Formel:
=GetFarbe
Dann schreibst du in C10 folgende Formel:
=SUMMEWENN(L3:U8;43;A3:J8)
Dann kannst du die Spalten L-U ausblenden.
Falls bei dir die Spalten nicht leer sein sollten, dann müsstest du den Inhalt verschieben oder die Hilfsformel weiter hinten platzieren. Bei zweiteren müsste dann die Formeln angepasst werden.
Und nicht vergessen. Immer wenn du neue Zellen grün gefärbt hast die Taste "F9" zu drücken.
Liebe Grüße
Mathias