Bedingte Formatierung mit VBA Code
19.11.2007 15:48:49
Nadine
Ich hoffe jemand kann mir mit meinem Problem helfen.
Ich habe eine Excel-Datei mit 5 Tabellenblättern (StartDatum; Planung; ListeBox; InputBox; BerechnungBox)
In der Tabelle StartDatum habe ich die Produktion StartDatum jedes Produkt.
In der Tabelle ListeBox habe ich alle die Produkte aufgelistet mit dazugehörige Maschine (oder alternativ Maschine) für die Produktion.
In der Tabelle InputBox gebe ich der benötigten Produktionsmenge jedes Produkt ein.
In der Tabelle BerechnungBox berechne ich das EndeDatum der Produktion jedes Produkt. Und setze ich es gegenüber dem StartDaum, so bekomme ich die Produktionszeit (StartdDatum bis EndeDatum) jedes Produkt.
Nun möchte ich in der Tabelle Planung diese Produktionszeit jedes Produkt als Farbe in Zeit-Skala in der Bereich E7:IV108 (also Excel Ende) anzeigen lassen.
Für das, habe ich in der Tabelle Planung
Spalte A: alle Maschinen aufgelistet
Spalte B: alle Produkte je nach Maschinensangehörigkeit aufgelistet (Achtung: Es kommt häufig vor, dass ein Produkt auf einer Maschine oder anderen alternativen Maschine produzieren kann. Aber eine Maschine kann gleichzeitig nur ein Produkt produzieren.)
In Bereich D2: IV5 (also bis Excel Ende) habe ich eine Zeitskala hintergelegt.
Ich habe mit Sverweis in der Bedingte Formatierung probiert:
=UND((G$4+G$5)>=SVERWEIS($B7;$A$121:$E$161;3);(G$4+G$5) und unterkopieren!
halbwegs klappt auch. Aber es gibt noch folgende weitere Bedingungen:
- wenn die Produktionszeite (StartDatum bis EndeDatum) eines Produktes auf einer Maschine angezeigt ist, darf nicht mehr dieselbe Produktionszeite auf anderer Maschine noch mal gezeigt werden.
- Auf dieselbe Maschine dürfen sich nicht die Produtionszeite von verschiedenen Produkten überschneiden. d.h. das StartDatum des zweiten Produktes kann nur gezeigt werden ab das EndeDatum des ersten Produkts u.s.w.
- Für die Produkte, die alternative Produktionsmaschine haben. Soll das StartDatum auf der nächste früher möglich Frei Maschine angezeigt werden, wenn die erste Maschine für diese StartDatum besetzt ist u.s.w.
Allein mit Bedingte Formatierung komme ich leider nicht mehr weiter. Wäre es super super wenn ihr mir mit einem VBA-Code da weiterhelfen könnt.
Danke im Voraus!
https://www.herber.de/bbs/user/47870.xls
Nadine
