Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Summe farbig markierter Zellen zum 2.Mal

Summe farbig markierter Zellen zum 2.Mal
17.05.2004 13:29:50
Rico
Hallo Excel-Forum
Ich suche die Formel in bedingte Formatierung, um die Anzahl farbig markierter Zellen einer Zeile zu finden. Ich habe bereits einen Vorschlag gestern Nacht bekommen, welcher aber bei mir nicht funktionierte (Fehlermeldung: Bezug, #Name, oder nur die Farbnummer als Kästchenanzeige):
Hier die Idee, die bei mir nicht funktioniert
Option Explicit

Function Farbsumme(Bereich As Range, FarbNr 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() ' zum Zahl bestimmen für Farbnummer
Dim i As Integer
i = ActiveCell.Interior.ColorIndex
MsgBox " Farbnummer " & i
End Sub

Vielen Dank im Voraus
Rico

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Summe farbig markierter Zellen zum 2.Mal
17.05.2004 13:39:53
Uwe
Hallo Rico,
Du hast Dich da vertippt. Ersetze '= Farbe' mit '= FarbNr'.
Gruß Uwe
AW: Summe farbig markierter Zellen zum 2.Mal
Rico
Hallo Uwe
Vielen Dank, dennoch auch das funktioniert nicht
Rico
AW: Summe farbig markierter Zellen zum 2.Mal
geri
Hallo Rico
hier ist mein Org.-Code
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

evtl .it F9 Berechnung starten
gruss geri
Anzeige
AW: Summe farbig markierter Zellen zum 2.Mal
17.05.2004 13:57:32
Rico
Hallo Geri
Damit ich es richtig verstehe, ich setze Deinen Vorschlag als Modul ein, aber was und womit werden die farbigen Zellen in der Zelle zusammengerechnet.
Danke
Rico
AW: Summe farbig markierter Zellen zum 2.Mal
Mac4
Hallo Rico,
wenn ich es richtig verstanden habe, willst Du Zellen, die bedingt formatiert sind, summieren. M.W. geht das nicht, oder nur mit einem riesigen Programmieraufwand!.
Wenn Deine Zellen fest formatiert sind, klappt die Funktion von geri!
Marc
AW: Summe farbig markierter Zellen zum 2.Mal
geri
Hallo Rico
den Code in Modul dies ist Korrekt
und die Zelle wo die Summe stehen soll
=Farbsumme(GG$15:GG$67;3) diese Formel im Beispiel wird
in Spalte GG Zeile 15 - Spalte GG Zeile 67 summiert und 3 steht für Farbe rot
gruss geri
Anzeige

170 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige