Nur Werte aus bestimmte Feldern addieren !!!

Question

Hallo alle zusammen,
Ich mal wieder anmeinen Grenzen und benötige wieder prof. Hilfe !!!

Ich habe einen Bereich(Beispiel) C2 bis H5.
In diesen Bereich sind aus verschiedenen Kalkulations-Bereichen Werte (Zahlen mit 2 Dez.Stellen) .
Einige Felder in diesen Bereich muß ich zum Ausdrucken schwarz einfärben (manuell- kein Problem) .
Jetzt würde ich gerne in eine weitere Zelle z.B. in K3 eine Formel oder Macro Ergeniss schreiben lassen welches nur die Werte aus den Zellen addiert die nicht scharz eingefärbt sind !!!

Hätte da einer eine Lösung für mich Formel oder Macro ???

Vielen Dank für eure Hilfe im voraus.

Gruß Dutchi

Answer 1

Hallo Dutchi,

anbei eine Funktion

Option Explicit

Public Function no_black(Bereich As Range)
Dim rngC As Range, dblWert As Double
Application.Volatile
For Each rngC In Bereich
If rngC.Interior.ColorIndex = xlNone Then
dblWert = dblWert + rngC.Value
End If
Next
no_black = dblWert
End Function

Kopiere sie in ein Allgemeines Modul Deiner Arbeitsmappe.
Der Aufruf der Funktion kann in einer beliebigen Zelle mit

=no_black(C2:H5)

erfolgen.

Gruß
Rainer

Answer 2

Hallo und danke für die schnelle Reaktion

Ich hab die Funktion eingefügt

In einer Zeile auf dem Blatt auch die Gleichung rein gesetzt.

aber leider kommt nur diese Ergebnis raus.

#NAME?

Hab ich was vergessen ?

Gruß Dutchi

Answer 3

Hallo Dutchi,

leider kann ich nicht auf Deinen Rechner blicken um zu sehen was Du falsch gemacht hast.

Anbei ein Beispiel nach Deinen Vorgaben.

Download

Gruß
Rainer

Answer 4

Danke,
kann leider von dem Rechner hier keine Downloads machen.
werde heute später Zuhause nochmal versuchen ,
Danke schon mal .

Gruß Dutchi

Answer 5

Hallo Reiner,

Hab gerade nochmal hier Zuhause verxsucht es funktioniert natürlich.
Keine Ahnung warum nicht auf der Arbeit.

Vielen Danke nochmal für die schnelle Hilfe.

Gruß an alle.