Farbige Zellen auslesen

Computer: Software & Programmierung Office Software
#1

Hallo liebe Excel-Gemeinschaft,
als erstes noch ein Gesundes neues Jahr.

Nun zu meinem Problem in Excel 2007 :
Ich sollte für einen Freund ein Kalender machen in dem er dann die Tage (Zellen) farbig markiert (Hintergrundfarbe) und diese dann zusammengezählt werden in monatlich und jährlich.

Der Kalender ist kein Problem.
Alles ohne Bedingter Formatierung (Wochenende/Feiertage) machen auch nicht, ist eben eine Fleißaufgabe.

So nun habe ich meine alte Formel aus vergangener Zeit genutzt
-> =ZELLE.ZUORDNEN(63;INDIREKT(„ZS(-12)“:wink:)

Die Formel schrieb ich:
FORMEL/NAMENSMANAGER ein, bezeichnete sie mit dem Namen „ Farbe “ und die Formel trug ich in BEZIEHT SICH AUF: ein.

So nun habe ich in der Zelle M2 „ =Farbe “ eingetragen und bis zur Zelle X32 kopiert.
In diesen Zellen werden nun die Farben der Zellen in Zahlen wiedergegeben.

Unter dem Kalender in Zeile A34-L34 lasse ich nun z.b die Farbe blau Nr. 33 (Nr. aus den Zellen M2 – X32) mittels der Formel „=ZÄHLENWENN(M$2:M$32;„33“)“ berechnen (Monatsberechnung).
Dann weitere Farben mit der gleichen Formel nur die Farbnummer wird geändert.

Zum Schluss lasse ich die Zeilen der gleichen Farbe auslesen und komme so auf die Jahresberechnung. (=SUMME($A$34:blush:L$34))

So, alles funktioniert aber bei einem Neueintrag (farbig markieren) kommt die Berechnung nur in Gange wenn F9 gedrückt wird.

Nun meine Frage:
Hat jemand eine Idee wie man es mit einem Makro besser machen kann und auch ohne der F9-Taste?

Den Kalender machte ich wie folgt:
http://www.excelformeln.de/formeln.html?welcher=284

Ich lege meine vorerst fertige Datei zur Anschauung unter:
http://www.file-upload.net/download-7048257/Plan.xls…
ab.

Danke im Voraus, Bernd

#2

Hallo Bernd,
es ist wirklich erstaunlich was du dort so alles gemacht hasst.
Du merkst aber auch, was für ein Krampf das ist Zellenformate auszuwerten.
Excel ist dafür einfach nicht gedacht.
Franz schrieb in einem andern Beitrag:

Excel ist ein Kalkulationsprogramm - kein Malprogramm
Verwende zur wesentlichen Kennzeichnung von Daten Zellinhalte und keine Zellformatierungen

Dem kann ich nur voll und ganz zustimmen.
Deine Datei läuft bei mir zB. nicht weil ich keine Makros aktiviert habe.
Du kannst wohl möglich jetzt auch noch ein Makro erstellen was bei jedem Klick eine Neuberechnung ohne F9 bewirkt.

Ich rate aber dazu, den Kalender noch mal zu überdenken und wie Franz trefflich schreibt die relevanten Daten nicht per Zellenformat zu definieren.

Gruß Holger

#3

Hallo Holger,
ja ich gebe dir und auch Franz Recht, aber da Excel ein so vielschichtiges und vielseitiges Programm ist und erst seit der Version 2003 Excel es verbannt hat, die Zellformatsberechnung, dachte ich es könnte mir einer auf die Sprünge helfen mit der Farbberechnung. Denn nur wegen ihr muß die Zaubertaste F9 gedrückt werden.

Ich musste die Datei im Format \ *.xlsm speichern, da sie sonst überhaupt nicht funktioniert. Ansonsten sind keinerlei Makros in der Datei. Einzig und allein ist die Benutzung des „Namensmanager“ und der schreibt kein Makro.

Da ich nun keinen Schimmer von Makros habe frage ich dich doch einfach einmal.
Du schriebst „…. was bei jedem Klick eine Neuberechnung ohne F9 bewirkt.“ Könntest du mir dabei helfen?

Im Voraus vielen Dank. Bernd

#4

Hallo Bernd,

erst seit
der Version 2003 Excel es verbannt hat, die
Zellformatsberechnung,

upps, was meinst du denn damit, *gebannt lausch* :smile:?

dachte ich es könnte mir einer auf die
Sprünge helfen mit der Farbberechnung. Denn nur wegen ihr muß
die Zaubertaste F9 gedrückt werden.

Bis einschließlich XL 2003 gehe ich davon aus, wirste wohl drücken müssen. Ab XL 2007 weiß ic hgrad nicht, may be da gibt ess was mit
Farbformeln.

Gelegentlich hilft zur autom. Aktualisierung der
Einbau von plus Jetzt() bzw, Hinzfügung von Jetzt() als Leerstring
bei Text, aber bei diesen Excel4-Dingern wohl auch nicht.

Ich meine das so, ersetze mal in deiner Formel die 63 durch:
63+Jetzt()*0

Ich musste die Datei im Format \ *.xlsm speichern, da sie sonst
überhaupt nicht funktioniert. Ansonsten sind keinerlei Makros
in der Datei. Einzig und allein ist die Benutzung des
„Namensmanager“ und der schreibt kein Makro.

Du irrst. Schmeiß den Namen, die Zelle.Zuordnen-Formel raus, dann
kannste als xlsx speichern.
Wenn A1 > 5 dann Zelle gelb ist keine Makroformel ===>xlsx
=Zelle.zuordnen(…) ist quasi ein Excel4- Makro ===>xlsm

Gruß
REinhard

#5

Hallo Reinhard,
danke für deine Antwort. Das mit dem Excel03 ist nichts schlaues von mir, sondern habe ich im web gelesen. Ob es nun stimmt oder nicht, kann ich nicht sagen.

Danke für den Tipp es funktioniert. Auch das Speichern als xlsx.
Danke und noch einen schönen Tag.
Bernd

#6

Hallo Bernd,

danke für deine Antwort. Das mit dem Excel03 ist nichts
schlaues von mir, sondern habe ich im web gelesen. Ob es nun
stimmt oder nicht, kann ich nicht sagen.

ich kann das auch nicht sagen denn ich zmindest verstehe den Geamtsinn des Satzes nicht :frowning:

„erst seit der Version 2003 Excel es verbannt hat, die
Zellformatsberechnung,“

Bedeutet „verbannt“ „verpennt“?
„erst seit XL 2003“ bedeutet doch wohl ab XL 2007 (zumindest bei Win)

Mag mir jmd. bitte mal chiffrieren was der Satz bedeutet.
Obwohl so wichtig ist das nicht.
Denn ich kann mir schon denken was gemeint ist, wenn auch seltsam formuliert.

Von meiner Warte aus gesehen ist es klar eine Art Manko daß Excel
und auch Excel-Vba auf bestimmte Änderungen schlichtwegs nicht
reagieren. Man muß ggfs. F9 drücken o.ä.
Dann denke ich mir schon, das ist seit XL97 schon so, für
MS-Programmierer leicht und locker schon in XL 2000 abzuändern.

Das ist aber nur mein beschränkter Blickwinkel. Vielleicht war es so
bei der MS-Besprechung was man neu in XL 2000 einabuen sollte kam das
auch auf den Tisch aber es wurde entschieden es so zu belassen.
Kann ja mir unbekannte Gründe dafür geben.

Z.B. die sogenannte „performance“. Ein System was auf jede Winzigkeit
(die in dem Fall insgesamt eh doof ist, siehe Franz) reagieren
muß/soll ist langsamer als eine was das nicht „beobachtet“.
Naja, diesen Grund habe ich mit flugs erdacht *gg*

Gruß
Reinhard