Aktualisierung bei Farbwechsel

stormlamp · 2014-09-07T12:05:27+00:00

Hallo Zusammen, in einer Arbeitsmappe übertrage ich Zellfarben von einem Tabellenblatt in ein anderes Tabellenblatt über ZELLE.ZUORDNEN und indirekter Adressierung. Nun benötige ich nur noch ein Makro mit folgender Funktion: Wenn in Tabelle1 irgendo die Zellfarbe geändert wird, soll automatisch Tabelle3 aktualisiert werden. Kann mir dabei jemand helfen? Freundliche Grüße Hans

Hallo Daniel,
Du warst nicht gemeint mit meinem Kommentar. Nun zu Deiner Frage:
Das Auslösen dieses Makros bei Änderung funktioniert nicht:

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("A:A"))
If Target Is Nothing Then
Exit Sub
Else
Call Calculate
End If
End Sub

Die Aktualisierung wird nur dann ausgelöst, wenn ich einen Wert in der Spalte A ändere und die Zelle mit Return verlasse. Wenn ich die Zelle nur mit der Maus markiere und die Farbe ändere, funktioniert es nicht.
Daher sehe ich nur die Möglichkeit, zeitgesteuert eine Aktualisierung laufen zu lassen:

Private Sub Workbook_Open()
Call intervall
End Sub

Sub intervall()
Dim NextTime As Date
NextTime = Now + TimeValue("00:05:00")
Application.OnTime NextTime, "intervall"
Call Calculate
End Sub

Damit kann ich insgesamt arbeiten, obwohl das noch nicht ideal ist.
Mit der Übertragung der Farben bin ich auch noch nicht ganz zufrieden, obwohl es einigermaßen läuft. Ich muss anhand des über ZELLE.ZUORDNEN(63,...) ausgelesenen Farbcodes für jeden einzelnen Code eine bedingte Formatierung schreiben, um eine andere Zelle mit einer bestimmten Hintergrundfarbe auszustatten.
Bisher habe ich noch keine Möglichkeit gefunden, aus dem ausgelesenen Farbcode mit einer einzigen bedingten Formatierung die gleiche Farbe wieder zu erzeugen.
Mit freundlichen Grüßen
Hans

Hallo Luc,
danke für Deinen Lösungsvorschlag. Ich muss nur darauf hinweisen, dass meine VBA-Kenntnisse sehr bescheiden sind.
Hintergrund der Anwendung:
In der Tabelle1 arbeitet die Abteilung Disposition. Für jede andere Abteilung gibt es ein weiteres Tabellenblatt in dem die jeweils nur für diese Abteilung erforderlichen Tätigkeiten aufgelistet sind. Die gesamten Tätigkeiten der verschiedenen Abteilungen werden über SVERWWEIS mit der Dispositiontabelle gekoppelt.
Nun macht es sich die Disposition recht einfach und färbt manuell einfach die einzelnen Auftragszeilen ein
rot = Liefertermin überschritten, gelb=Liefertermin kritisch, grün=Liefertermin ungefährdet.
Diese Farb-Information soll in die anderen Tabellen übertragen werden, aber in der ersten ziemlich großen Tabelle darf nichts geändert werden.
Also fand ich nur den Weg, die Farbinformationen der ersten Tabelle in eine Hilfstabelle zu übertragen, die gegen Löschungen und verschieben in der Haupttabelle immun ist.
Die Produktnummer holen ich mir über die Formel:

A1=INDIREKT("Tabelle1!A"&ZEILE())

Die zugehörige Farbe hole ich mir über eine eigene Funktion

Zeilenfarbe=ZELLE.ZUORDNEN(63;INDIREKT("Tabelle1!A"&ZEILE()))

Je nachdem was dort steht, färbe ich dann mittels bedingter Formatierung die Zielzellen in den anderen Tabellenblättern mit den 3 benötigten Farben ein. Diese Art der Farbübertragung ist vielleicht umständlich und holprig, aber das entspricht noch so eben meinen Excel-Kentnissen und funktioniert in excel 2010 und 2013.
Natürlich hätte ich lieber in der Hilfstabelle die RGB-Farben ausgelesen und diese Farben dann direkt in die Zielzellen geschrieben.
Aber da komme ich zu sehr in den VBA-Bereich, von dem ich nichts mehr verstehe und auch die Erklärungen nicht, die ich so beim googeln gefunden habe.
Und dann müsste ich in diese VBA-Codes mit "Interior.ColorIndex" auch noch meine indirekten Adressierungen einbauen und dann kommt der Block des Zurückschreibens der Farben..... Das ist zuviel des Guten :-)
Trotzdem danke für Deine Anmerkungen
Hans

Forumthread: Aktualisierung bei Farbwechsel

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial

Automatische Aktualisierung von Zellfarben in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)