Zellen mit Doppelklick einfärben

Question

Hallo,

ich arbeite mit Excel 2010 und möchte nun per Doppelklick zellen einfärben.

Nur möchte ich, dass in Spalte G per Doppelklick die Farbe GRÜN, in Spalte H die Farbe GELB und in Spalte I die Farbe ROT anzeigt. Mache ich wieder einen Doppelklick drauf, soll die Farbe gelöscht und KEINE Füllung mehr sein.

Zum Schluss wäre es super, wenn in Zeile 105, Spalte G die Summe aller Grünen, in Spalte H aller Gelben und in Spalte I alle Roten gezählt werden.

Wäre super, wenn mir hier geholfen werden kann.

Danke

Gruß Florian

Answer 1

Hallo Rainer,

jetzt komm ich mit, warum es nicht funktionieren kann. Da haben wir schön aneinander vorbei geredet.

In deiner und Oilivers Tabelle zählt es die Summen der Zahlen zusammen. Bei mir kann das nicht gehen, da ich Text in den Zellen habe.

Ist es möglich die Anzahl der farbigen Zellen zählen zu lassen? In deiner Beispieltabelle wäre es 2x grün, 2x gelb und 2x rot.

Sorry, dass ich mich da falsch ausgedrückt habe.

VG Florian

Answer 2

Hallo Florian,

in meinem Beispiel ist auch Text vorhanden und es klappt.

Stell doch mal eine Beispielmappe ein, das man sieht wo der Fehler liegt.

Gruß
Rainer

Answer 3

Hallo Florian,

dann ändere im Makro

dblSumme = dblSumme + rngZelle

bzw.

dblZ = dblZ + rngc

in

dblSumme = dblSumme + 1

bzw.

dblZ = dblZ + 1

Gruß

M.O.

P.S. Ich habe mir VBA selbst mit learning by doing beigebracht. Und bei Problemen gibt es ja immer noch das Supportnet :-).

Answer 4

Hallo Florian,

noch ein Hinweis:

Falls Du mein Makro in Deiner Originaldatei benutzen willst, dann lösche alle bestehenden Farben in den Spalten G bis I und setze diese per Doppelklick neu.

Gruß
Rainer

Answer 5

VIELEN VIELEN DANK.

Jetzt klappts einwandfrei.

VG Florian

Answer 6

Hallo nochmals,

Da ich auch weiter lernen möchte, habe ich nun eine letzte Frage.

Was müsste man ändern, wenn man die Farben jeweils Zeilenmäßig, nicht mehr Spaltenmäßig benötigen würde. (auch die Summe).

Ist da "row" am einfachsten?

Danke

VG Florian

Answer 7

Hallo Florian,

mit der Vergabe von Bonuspunkten hast Du signalisiert, dass das in diesem Thread gestellte Problem gelöst ist,
Dem zufolge solltest Du weitere Fragen in einem neuen Thread stellen.

Gruß
Rainer

Answer 8

Mach ich.

Danke.