Anzeige
Archiv - Navigation
216to220
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
216to220
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Summieren über einen Bereich mit Farbe als Schlüss

Summieren über einen Bereich mit Farbe als Schlüss
13.02.2003 13:07:05
Roger
Hallo, Ich möchte die Anzahl aller Zellen eines Bereiches bestimmen können, bei denen die Hintergrundfarbe identisch ist wie die der eigenen Zelle (wo das Makro aufgerufen wird). Folgende von mir geschriebene Routine erfüllt dies zwar, hat aber den Nachteil, dass nach Änderungen keine automatische aktualisierung erfolgt (Warum?). Sicherlich ginge es auch eleganter. Tips hierzu sind herzlich willkommen. Danke Roger

Public Function SummeEigeneFarbe(Suchbereich As Range) As Long
' 2003 by Roger Heil
' Diese Funktion durchläuft den gesammtenn Bereich horizontal
' und summiert genau dann den Zelleninhalt der Zelle,wenn die
' gleiche Hintergrundfarbe gegeben ist wie inder aktuellen
' Zelle (wo sich der Aufruf des Makros befindet).
' Aufrufbeispiel in einer Zelle des Arbeitsblattes: "=SummeEigeneFarbe(H8:GN8)"
' Initialisierungen
Dim HilfsSumme As Long
Dim i, j, k, l As Long
HilfsSumme = 0
i = 0 'Laufvariable
j = Suchbereich.Row 'Zeile
k = Suchbereich.Column 'erste Spalte des Bereiches
l = k + Suchbereich.Count 'letzte Spalte des Bereiches
temp = 0

' den gesammten Bereich durchlaufen und die Summe bilden
For i = k To l
If Cells(j, i).Interior.ColorIndex = ActiveCell.Interior.ColorIndex Then
HilfsSumme = HilfsSumme + 1
End If
Next i
SummeEigeneFarbe = HilfsSumme
End Function



4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Summieren über einen Bereich mit Farbe als Schlüss
13.02.2003 13:12:22
RainerJ

Hallo füge in die erste Zeile
Application.Volatile
ein.

Viel Spass

Re: Summieren über einen Bereich mit Farbe als Schlüss
13.02.2003 13:12:22
RainerJ

Hallo füge in die erste Zeile
Application.Volatile
ein.

Viel Spass

Re: Summieren über einen Bereich mit Farbe als Schlüss
13.02.2003 13:12:27
RainerJ

Hallo füge in die erste Zeile
Application.Volatile
ein.

Viel Spass

Re: Summieren über einen Bereich mit Farbe als Schlüss
13.02.2003 14:05:17
Roger

Hallo Reiner,
erstmals Danke. Das hilft leider nur bedingt. Irgendwie verändern sich auch die Zellen mit anderen Hintergrundfarben und dem gleichen Aufruf. (Unabhängig von der gewählten Hintergrundfarbe, zeigen alle den gleichen Wert an - gibts es einen Selbstbezug auf eine Zelle?)

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige