Hallo zusammen,

ich habe ein kniffliges Problem mit einer bedingten Formatierung und weiß nicht, wie ich dies in VBA lösen kann. Händisch alle bedingten Formatierungen einzutragen wäre wohl eine Sissifuss-Beschäftigung.

Folgende Situation:

Ich möchte zur Verwaltung von Rohstoffen gemäß FiFo-Prinzip die Lagerstellplätze verwalten. Der Mitarbeiter gibt die Teilenummer des Rohstoffs, dessen Produktionsdatum sowie die Info, ob der Rohstoff bereits angebrochen wurde oder nicht, in Tabelle 2 (siehe Bild) ein. Anhand einer Stammdatentabelle, zieht sich Excel die jeweiligen Rohstoffeigenschaften und die Mindesthaltbarkeitsdauer heran und berechnet die restliche Haltbarkeit in Tagen, jeweils tagesaktuell beim Öffnen der Liste.

[URL=http://www.bilder-upload.eu/show.php?file=796792-1405497559.png][IMG]http://www.bilder-upload.eu/thumb/796792-1405497559.png[/IMG][/URL]

In Tabelle 1 (siehe Bild) habe ich das Lager visualisiert dargestellt und die einzelnen Stellplätze mit ihrer Tauglichkeit nach Säure, Lauge oder Neutralen Stoffen gekennzeichnet. Excel überträgt automatisch die Teilenummer von Tabelle 2 in den jeweiligen Stellplatz von Tabelle 1.

Nun möchte ich mittels bedingte Formatierung folgendes erreichen:

• Ist ein Rohstoff offen (Eintrag mittels "ja" oder "nein"), so soll die Schriftfarbe in Tabelle 1 des jeweiligen Eintrags in rot dargestellt werden
• Ist ein Rohstoff noch <= 30 Tage haltbar, so soll die Zellenfarbe in Tabelle 1 des jeweiligen Eintrags in rot dargestellt werden
• Ist ein Rohstoff noch >30 bis <90 Tage haltbar, so soll die Zellenfarbe in Tabelle 1 des jeweiligen Eintrags in gelb dargestellt werden
• Ist ein Rohstoff noch > 90 Tage haltbar, so soll die Zellenfarbe in Tabelle 1 des jeweiligen Eintrags in grün dargestellt werden

Ich hoffe ich konnte mein Problem verständlich erläutern und freue mich über Lösugen, da ich wirklich keinerlei Ansatz finde, dies in VBA umzusetzen.

Schöne Grüße

Andreas