Office: (Office 2007) Farbe der Ursprungszelle übernehmen

Hallo miteinander

Ich habe ein Workbook mit 200 Sheets, davon ist eines das "Master Sheet".
Die anderen Sheets werden per VLoopUp ausgefüllt.

Nun die Frage: Ist es möglich, dass alle Zellen immer die Farbe des Feldes übernehmen, aus denen der Wert kommt?

Und um vielleich noch einen Schritt weiter zu gehen: Ist es möglich dies auf die Farbe Rot zu beschrenken?

Danke vielmals und Gruss

RF

:)

 

ja das ist möglich, Teil 1 schaue hier Füllfarbe bei Sverweis übernehmen

 

Hallo Hajo,

als ich Deine positive Grundstimmung zu der gesuchten Lösung las, war ich schon richtig gespannt auf Deinen Lösungsvorschlag. Doch das Ergebnis ist dann doch ernüchternd. Mit Vba der Tabellenfunktion hinterherzuhecheln, um den Farbzustand rauszukriegen, kann wohl bei 200 Tabellen und unzähligen VLoopUp-Funktionen keine Lösungsvariante sein.
In Deinem Lösungsansatz kann man mit 2 Vba-Zeilen mehr ganz auf die SVerweis-Funktionen verzichten: Code:

Gruß von Luschi
aus klein-Paris

 

Hallo miteinander

Es tut mir leid, ich habe mich wohl nicht ganz klar ausgedrückt.
Mit geht es nicht um die Füllfarbe, sondern um die Schriftfarbe (Fontcolor)

Hajo, vielen Dank für das Beispiel.
Eine Frage dazu: Die Farbe auf Tabelle 1 scheint sich nur zu aktualisieren, wenn ich die ensprechende Zahl in Kolonne A kurz aktiviere.
Gibt es da einen "workaround"?

Danke euch beiden!!

 

ersetze im Code Interior durch Font. Ich sehe Deine tabelle nicht.

 

...tja, auf das hätte ich auch selber kommen können ;-)

Ich habe mich auf Deine Tabelle bezogen (übrigens, vielen Dank für den Link - tolle Seite, die Du da hast!).
Wenn ich die Zellenfarbe (bzw. Schriftfarbe) auf Tabelle 2 ändere, dann übernimmt es die Farbe nicht sofort auf Tabelle 1.
Ich muss zuerst die Zelle A6 (in der Du den Wert "1" hast) anwählen (durch "F2" oder Doppelklick)

Ich hoffe, dass es nun ein wenig verständlicher ist.

 

ich bin davon ausgegangen das bei Eingabe die Farbe übernommen werden soll.

 

Soll es ja auch, aber in Deinem Beispiel-File ist dies nicht der Fall.
Zumindest funktioniert es bei mir nicht - wird die Zellenfarbe (bzw, Schriftfarbe) sofort übernommen?

Per VBA am Schluss einzufügen, dass alle Zellen auf allen 200 Sheets neu kalkuliert werden sollen erscheint mir doch sehr Ressourcenaufwändig (und Excel düfte auch eine Weile benötigen und blockieren)


PS: Werde mir dann mal in Ruhe Deine Seite anschauen! Danke nochmals!!

 

Grüezi RunnigFighter

Ja, doch da es in Excel kein Ereignis gibt, das bei der Veränderung einer Formatierung ausgelöst wird sind alle Verfahren die rein auf Formaten beruhen stets nur Hilf-Krücken und müssen mit mehr oder weniger geeigneten Mitteln immer wieder zur Aktualisierung angestossen werden. Soll sowas dann auch noch über grosse Bereiche und 'online' laufen musst Du halt genügend Zeit aufbringen um die Berechnungen abzuwarten.


In einem produktiven Umfeld solltest Du dich daher niemals auf Berechnungen basierend auf Formatierungen verlassen - oder gar solche selbst in Betracht ziehen.

 

Hallo & Guten Morgen

OK, verstehe...

Ich habe den Code ein wenig für meine Bedürfnisse angepasst:

Code:

Nun hab ich aber das "kleine" Problem, dass der Offset nicht immer gleich ist.
D.H.
Auf meinem "Master Sheet" ist alles schön in Tabellenform.
Auf den Sheets dahinter werden per VLookup (bzw. SVerweis) diese Werte in eine bestimmte Zelle übernommen. Diese ist irgendwo im Sheet.

Mir ist bewusst, dass ich mühsam jede Offset-Bedinung in den Code einfügen könnte, frage mich aber ob es nicht einfacher geht?!?

Danke für die Hilfestellung

 

Grüezi RunningFighter

Du könntest die Offsets in Abhängigkeit des Tabellenblattes festlegen oder berechnen lassen.

Aber ohne genaue Definition (irgendwie) ist das nicht zu automatisieren.

 

Hallo Hajo

Frohes neues Jahr!!

Eine kurze Frage: Dein Code funktioniert super wenn ich den auf dem Worksheet eingebe.

kann ich den auch auf dem "Workbook" eingeben? Wenn ja, was genau muss ich ändern?

Danke & Gruss

 

benutze
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
unter DieseArbeitsmappe