Das Archiv des Excel-Forums

Zellen selektieren + Hintergrundfarbe

Bild

Betrifft: Zellen selektieren + Hintergrundfarbe
von: Pascal

Geschrieben am: 19.09.2003 14:31:38

Hallo Excel Profis.

Ich muss folgende Aufgabe lösen: Alle Zellen im Bereich C9-AQ9 welche einen grauen Hintergrund haben selektieren und das Ergebnis durch 4 teilen.

Wie schaffe ich es, die Zellen aufgrund der Hintergrundfarbe auslesen?

Wäre super, wenn mir jmd. einen Tipp geben könnte.

Gruss und Dank
Pascal
Bild


Betrifft: AW: Zellen selektieren + Hintergrundfarbe
von: GerdW
Geschrieben am: 19.09.2003 14:37:34

Wenn die Zellen nicht durch bedingte Formatierung grau sind:

Sub grau()
dim c as range, CValue as double
for each c in [C9-AQ9]
if c.interior.colorindex = 15 then
'ggf. anpassen, falls anderer Grauton
''du hast nicht geschrieben ob der einzelene Zellwert
''durch 4 geteilt werden soll oder die Summe aller Zellen?
Next
End Sub


Gerd


Bild


Betrifft: AW: Zellen selektieren + Hintergrundfarbe
von: Pascal
Geschrieben am: 19.09.2003 14:49:58

Hallo Gerd

Besten Dank für die rasche Hilfe. Es soll die Summe aller Zellen durch 4 geteilt werden.

Gruss, Pascal


Bild


Betrifft: AW: Zellen selektieren + Hintergrundfarbe
von: Rick
Geschrieben am: 19.09.2003 14:51:16


Hallo Pascal

Oder du kannst es als Funktion in eine Zelle eingeben (die 15 muss nicht stimmen, habe die Farbnummer von Gerd übernommen)

=Farbsumme(C9:AQ9;15)/4

schönes week-end
Rick


Bild


Betrifft: AW: Zellen selektieren + Hintergrundfarbe
von: Pascal
Geschrieben am: 19.09.2003 15:01:54

Hallo Rick

Danke für deinen Tip. Die Funktion Farbsumme kennt mein Excel nicht. Hab auch in der Hilfe nichts gefunden. Oder hab ich da was falsch begriffen???

Gruss, Pascal


Bild


Betrifft: AW: Zellen selektieren + Hintergrundfarbe
von: Rick
Geschrieben am: 19.09.2003 15:27:47

Hi Pascal

Stimmt - es handelt sich im eine Benutzerdefinierte Funktion, die ich dir nachstehend
kopiert habe:



Function Farbsumme(Bereich As Range, Farbe As Byte)
'Addiert Zellen der angegebenen Hintergrundfarbe
'Farbe als Indexnummer angeben (z.B. 4 für Hellgrün)
'Bei Farbänderungen Aktualisierung mit Taste F9 notwendig
'by [gau]
Application.Volatile
Farbsumme = 0
Dim z As Range
For Each z In Bereich
If z.Interior.ColorIndex = Farbe And IsNumeric(z.Value) Then Farbsumme = Farbsumme + z.Value
Next z
End Function




Gruss
Rick


Bild


Betrifft: AW: Zellen selektieren + Hintergrundfarbe
von: Pascal
Geschrieben am: 19.09.2003 16:32:36

Hallo Rick

Das wäre genau das was ich gesucht habe, allerdings funktioniert die ganze Sache leider nicht. Habe den Farbwert auf rot umgestellt, die Zellen rot eingefärbt, F9 gedrückt aber der Wert blieb immer 0.
Es ist ja schon korrekt, dass die Funktion im Modul1 steht, oder?

Gruss, Pascal


Bild


Betrifft: AW: Zellen selektieren + Hintergrundfarbe
von: Rick
Geschrieben am: 23.09.2003 07:34:14



Hallo Pascal

Sorry, habe erst heute wieder bei Herber reingeschaut.

Ja, das Makro ist in Modul 1 abgelegt.
(Hast du auch den richtigen Farbcode eingegeben ?)

Gruss Rick


 Bild

Excel-Beispiele zum Thema " Zellen selektieren + Hintergrundfarbe"

Makros in Abhängigkeit vom Zellennamen aufrufen download Zellen auf Kommentar überprüfen download
Spalten bedingt summieren und Zellen formatieren download Text aus Textbox in Zellen aufteilen download
Zellen vergleichen und markieren download Zählen formatierter Zellen download
Daten aus Textdatei gezielt in Zellen übernehmen download Zellen verbinden und trennen download
Zellen bei Minuswerten schraffieren download Zeilen oberhalb der markierten Zellen einfügen download
Drei Zellen rechts der aktiven Zelle markieren download Zellen vom Druck ausschließen download
Zellenwert als Autofilter-Kriterienwert download Nur Zellen mit Inhalt in ComboBox listen download
Verweise auf Zellen in geschlossener Arbeitsmappe erstellen download Zellen nach Schriftfarbe summieren download
Füllen aller leeren Zellen mit einem Platzhalter download Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen download
Zeilen mit Zellen mit rotem Hintergrund ausblenden download Anzahl der gelb hinterlegten Zellen ermitteln download
Editieren von Zellen durch DoppelKlick verhindern download Nach Eingabe eines Kurzbegriffes Werte in Nebenzellen eintragen download
Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln download
Werte in Zellen mit vorgegebener Hintergrundfarbe addieren download Prüfung, ob Parallelzellen übereinstimmen download
Zellen verbinden, mehrzeiligen Text eingeben und Höhe anpasssen download Kofpzeilenwerte angekreuzter Zellen multiplizieren download
Zellen über Tabellenblatt-Schaltfläche multiplizieren download Wert aus A1 in mehrere Zellen übernehmen download
Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen download
Nur sichtbare Zellen addieren download Zellinhalte vor dem Verbinden der Zellen zusammenfassen download
Blatt auswählen und Zellen nacheinander drucken download Leere und Zellen mit 0 aus-/einblenden download
Zugriff auf Zellen unter Verwendung eines Bereichsnamens download Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download
Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten download Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern download
Prüfung, welche Zellen nach Öffnen verändert wurden download Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen download
Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download Zeilenhöhe bei verbundenen Zellen anpassen download
Einfügen von Zeilen vor und nach Zellen mit Fettdruck download Bei Zelleingabe andere Zellen füllen download
Dialogaufruf, wenn zwei Zellen Werte enthalten download Gültigkeitsliste ohne Lerrzellen download
Menüpunkt "Zellen einfügen..." im Kontextmenü deaktivieren download Zellen verbinden, ohne dass Werte verlorengehen download
Wert in UserForm-TextBox eintragen und selektieren download Selektieren von über ComboBox-Felder ausgewählten Werten download
Hintergrundfarbe nach Datum festlegen download Feste Hintergrundfarbe der aktiven Zelle bei Cursorbewegungen download
Hintergrundfarbe nach Eingabewert download Über bedingte Formatierung Hintergrundfarbe bei Zelleingabe ändern download
Jede zweite Zeile mit Hintergrundfarbe belegen download Hintergrundfarbe in Abhängigkeit vom Wochentag download
Hintergrundfarbe einer Zeile, wenn bestimmter Wert in 1 Zelle download Neuberechnung nach Änderung der Hintergrundfarbe download
Hintergrundfarbe eines UserForm-Image-Objekts festlegen download Setzen der Hintergrundfarbe nach Wertevergleich download
Hintergrundfarbe nach Farbindex-Liste festlegen download Alle Zellen mit einer vorgegebenen Hintergrundfarbe zählen download
Hintergrundfarbe in Abhängigkeit des Zellwertes download Hintergrundfarbe bei Null-Bestand ändern. download
Hintergrundfarbe gem. Werte/Farbindex festlegen download Festlegung der Hintergrundfarbe nach Werteingabe download
Hintergrundfarbe bei Eingabezeile ändern download