Re: Farblich Markierte Felder addieren
02.12.2002 15:18:54
Monika Weber
Hallo JosefDann setze besser gleich eine selbstgestrickte Funktion ein.
Die könnte so aussehen:
Function Farbe(Bereich As Range, Farbwahl As Byte)
Dim c As Range
If Farbwahl = 3 Then ' Rot
For Each c In Bereich
If c.Interior.ColorIndex = Farbwahl Then Farbe = Farbe + c.Value
Next c
ElseIf Farbwahl = 5 Then ' Blau
For Each c In Bereich
If c.Interior.ColorIndex = Farbwahl Then Farbe = Farbe + c.Value
Next c
ElseIf Farbwahl = 6 Then ' Gelb
For Each c In Bereich
If c.Interior.ColorIndex = Farbwahl Then Farbe = Farbe + c.Value
Next c
End If
End Function
Speichere die Function in ein Modul. Aufrufen kannst Du sie dann als ganz normale Formel (Kategorie: "Benutzerdefinier").
Oder gleich die Formel eingeben.
Z.B. für Rot: =farbe(C1:C7;3)
(Getestet unter Excel 2000).
Es liebs Grüessli
Monika
Jumper.ch