Das Archiv des Excel-Forums
Zellen selektieren + Hintergrundfarbe
- Zellen selektieren + Hintergrundfarbe von Pascal vom 19.09.2003 14:31:38
- AW: Zellen selektieren + Hintergrundfarbe - von GerdW am 19.09.2003 14:37:34
- AW: Zellen selektieren + Hintergrundfarbe - von Pascal am 19.09.2003 14:49:58
- AW: Zellen selektieren + Hintergrundfarbe - von Pascal am 19.09.2003 14:49:58
- AW: Zellen selektieren + Hintergrundfarbe - von Rick am 19.09.2003 14:51:16
- AW: Zellen selektieren + Hintergrundfarbe - von Pascal am 19.09.2003 15:01:54
- AW: Zellen selektieren + Hintergrundfarbe - von Rick am 19.09.2003 15:27:47
- AW: Zellen selektieren + Hintergrundfarbe - von Pascal am 19.09.2003 16:32:36
- AW: Zellen selektieren + Hintergrundfarbe - von Rick am 23.09.2003 07:34:14
- AW: Zellen selektieren + Hintergrundfarbe - von Rick am 23.09.2003 07:34:14
- AW: Zellen selektieren + Hintergrundfarbe - von Pascal am 19.09.2003 16:32:36
- AW: Zellen selektieren + Hintergrundfarbe - von Rick am 19.09.2003 15:27:47
- AW: Zellen selektieren + Hintergrundfarbe - von Pascal am 19.09.2003 15:01:54
- AW: Zellen selektieren + Hintergrundfarbe - von GerdW am 19.09.2003 14:37:34
 |
Betrifft: Zellen selektieren + Hintergrundfarbe
von: Pascal
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
 |
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
|
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
|
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
|
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
|
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
|
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
|
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
| |
