Hallo Kann ich in einer Tabelle verschiedene Zellen rot markieren und mit Zahlenwerten eingeben die dann aber in der Tabelle nicht addiert werden.
Entferne ich die rote Markierung dann werden die Zahlen addiert. Besten Dank Ernst
Hallo Ernst!
Diese Funktion Summiert nur die Zellen deren Hintergrund nicht rot (Index 3) ist. ' ************************************************************** ' Modul: Modul1 Typ = Allgemeines Modul ' ************************************************************** OptionExplicit
Function SummeOhneRot(Bereich As Range) AsDouble Dim rng As Range Application.Volatile For Each rng In Bereich If rng.Interior.ColorIndex <> 3 Then SummeOhneRot = SummeOhneRot + rng EndIf Next EndFunction
Nach Änderung der Hintergrundfarbe muss allerdings "F9" gedrückt werden, um eine neuberechnung auszuführen!
Gruß Sepp
Anzeige
AW: Tabellen
Nepumuk
Hallo Erich, das geht auch ohne VBA. Du musst allerdings nach den färben bzw. entfärben auf F9 drücken. Beispielmappe: https://www.herber.de/bbs/user/5918.xls Gruß Nepumuk
=Farbe ?
barni
hi nepumuk
kannst du mir mal auf die sprünge helfen wie das geht ? habe nichts gefunden unter funktionen oder in der hilfe . Danke
AW: =Farbe ?
Nepumuk
Hallo barni, was sich dahinter verbirgt, findest du unert Einfügen - Namen - Definieren. Wenn du dort Farbe auswählst, findest du den Bezug: =ZELLE.ZUORDNEN(63;INDIREKT("ZS(-1)";0)) Gruß Nepumuk