Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Summe von Zellen mit einer bestimten farbe

Summe von Zellen mit einer bestimten farbe
25.08.2004 11:13:57
Zellen
ich möchte gerne eine formel erstellen, wo zellen einer bestimmten farbe addiert werden
siehe Tabelle:
https://www.herber.de/bbs/user/10074.xls
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Summe von Zellen mit einer bestimten farbe
Zellen
Hallo Erkan
in Zelle für Summe die 3 steht für die Zellenfarbe
=Farbsumme(ED$14:ED$50;3)
in Modul
Option Explicit

Function Farbsumme(Bereich As Range, Farbe As Integer)
Application.Volatile   ' damit bei änderung ausgeführt wird
Dim Zelle
Farbsumme = 0
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme = Farbsumme + 1
End If
Next
End Function


Sub Farbnummer()
Dim i As Integer
i = ActiveCell.Interior.ColorIndex
MsgBox " Farbnummer " & i
End Sub

gruss geri
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige