Zellenhintergrund je nach Zahlenbereich einfärben

Hallo an alle!

Ich habe eine Funktion geschrieben, die einen Prozentwert (Verhältniswert) je nach den Inhalten des markierten Spalten-Bereichs berechnet.
Momentan habe ich die bedingte Formatierung eingesetzt um den Zellenhintergrund für den Bereich 0 - 0.3 rot zu färben, 0.4 - 0.9 gelb und für den Wert 1 (=100%) grün zu färben.

Nun möchte ich die Auswahl der Hintergrundfarbe statt über die "Bedingte Formatierung" auch in meinem VBA-Script lösen.

Ich würde mich freuen, wenn mir jemand einen Tipp dazugeben könnte,
vielen Dank schomal im voraus

mfg

Jörg

P.S.: Momentan hab ich noch folgenden Befehl mit einer IF-Abfrage ausprobiert: "ActiveCell.Interior.ColorIndex = 2"
Excel liefert mir aber keine Fehlermeldung und färbt den Hintergrund aber auch nicht ein. Wo finde ich im übrigen ein Auflistung der Color-Indizes?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hajo,

danke erstmal dass du dich meinem Problem überhaupt annimmst.

Das Problem scheint zu sein, dass meine Funktion mit dem Befehl "ActiveCell..." nichts anfangen kann. Es liegt nämlich weder an der If-Schleife (die hab ich schon zu Testzwecken entfernt).

Wenn ich einfach folgendes "ActiveCell.Interior.ColorIndex = 1" in mein Skript schreibe - also die Zeile muss auf jeden Fall ausgeführt werden, weil keine IF-Abfrage drumrum ist - dann passiert leider gar nichts. Keine Fehlermeldung und auch keine Farbänderung. Es liegt aber auch nicht an der grundsätzlichen Farbe der Zelle - hab schon mehrere ColorIndizes ausprobiert.

Meine Funktion in VBA bekommt als einzigen Übergabewert ein" ParamArray". Das ist der Bereich in welchem die Zelleninhalte überprüft und abgezählt werden, damit ein Verhältniswert berechnet werden kann. Die Zelle wo das Ergebns reingeschrieben wird, ist in dem ParamArray nicht miteingeschlossen.

Muss ich meiner Funktion vielleicht in irgendeiner Art und Weise mitteilen, in welcher Zelle die Funktion aufgerufen wird?

Die Aufgabenstellung (um es deutlicher zu machen) ist folgende (beispielhaft):

-) Rufe in Zelle A2 eine Funktion mit dem Namen "Status" auf.
-) Markiere den Bereich A3:A20
-) Funktion überprüft Inhalte und berechnet einen Prozentwert (z.B. Anzahl Zellen mit Inhalt "Hallo" dividiert durch Anzahl Zellen mit irgendeinem Inhalt)
-) Der Prozentwert soll in die Zelle A2 geschrieben werden
-) Die Hintergrundfarbe von A2 soll bei Werten von 0 - 0.3 rot, zwischen 0.4 und 0.9 gelb und bei 1 grün sein.

Vielen Dank für deine Hilfe - falls du noch Zeit hast.

mfg

Jörg

Beliebteste Forumthreads (12 Monate)

Zellenhintergrund je nach Zahlenbereich einfärben

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellenhintergrund je nach Zahlenbereich einfärben

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

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread