Bedingte Formatierung mit mehr als 3 Möglichkeiten

Hallo Excel Profis,
Ich habe hier im Forum mal im Archiv nach einer Lösung zu mehr als 3 Farben in der Bedingten Formatierung gesucht und wurde auch fündig. Visual Basic.und ich sind allerdings nicht die besten Freunde.
So habe ich den Code mal einkopiert und den Bereich angepasst.
Leider funktioniert er aber bei mir nicht. Bekomme immer nur einen Kompilierungsfehler bei der Ausführung angezeigt.
Zur Idee..im Bereich von D10:J76 sollen sich die Zellen je nach Eintrag einfärben. Dazu brauche ich eben mehr als nur 3 Möglichkeiten.
Ich stelle die Mustertabelle mal weiter unten ein.
Am liebsten wäre es mir, wenn man einfach die Einträge in der Legende, die um Ende der Tabelle steht übernehmen könnte. Diese sollte aber erweiterbar sein. Man könnte die Tabelle auch in einen Bereich z.B. Spalte O-P oder in einem anderen Tabellenblatt angeben.
Also bei Eintrag Ur = grün RTW-F = Hellgrün etc.
Wenn dies nicht geht reicht mir aber auch ein Eintrag im Code, zumindest wenn ich den Farbschlüssel wissen würde. Wo findet man eigentlich einen Schlüssel für die möglichen Farben in Excel?
Wenn ihr mir dabei helfen könntet wäre ich euch erneut sehr dankbar.
Gruß Rolf

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Worksheet_Change(ByVal Target As Range) If intersect(Target, Range("D10:J76")) Is Nothing Then Exit Sub With Target For Each c In Range("Legende") If Target.Value = c.Value Then Target.Interior.ColorIndex = c.Interior.ColorIndex Exit For End If Next End With End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim C As Range If intersect(Target, Range("D10:J76")) Is Nothing Then Exit Sub With Target For Each C In Range("Legende") If .Value = C.Value Then .Interior.ColorIndex = C.Interior.ColorIndex Exit For End If Next End With End Sub

…Tino?
Reicht es nicht, dass die Datei eine Methode zur Erweiterung der echten Bedingtformatierung vor xl12 enthält, auf die vorher noch niemand gekommen zu sein scheint? Als Zugabe ist da dann auch noch ein System aufeinander bezogener Namen enthalten, die es letztlich ermöglichen, die Formate eines Tagesblockes ganz einfach mit dem Formatpinsel auf einen anderen zu übertragen, was sonst offensichtl ein fehleranfälliges manuelles Problem gewesen wäre. Das hat dann, neben der Auslösung der PgmRoutinen bei jeder Eingabe (was bei entsprechender Eingabedisziplin im Prinzip nicht nötig wäre) zu diesen Laufzeiten geführt. Aber da das nur das Prinzip zeigen sollte, war es mir eigentl egal.
Irgendwann muss man sich entscheiden, ob man eher ein klassischer Pgmierer mit dementsprechender HptOrientierung sein, d.h. alle Register ziehen will, die ein Pgmiererherz erfreuen, oder sich dem HptAnliegen der Basisanwendung verpflichtet fühlt, universal zu sein. Natürl sind dabei die Übergänge zwischen beidem eher unscharf, aber im Zweifel würde ich mich eher für WF entscheiden, auch, wenn ich seine generelle VBA-Ablehnung nicht teile.
Und, was hast du gg Texterklärung eines Tatbestands oder einer Vorgehensweise? Ist nicht das HptAnliegen dieses und anderer Technikforen die Hilfe zur Selbsthilfe? Ich lade idR nur dann Dateien hoch, wenn das unbedingt erforderl ist, Pgmm als Bsp oder als Beschreibung. Wenn jemand lernen will, reicht das auch. Alles andere nutzt nur denen, die ihre Arbeit schnell erledigen wollen und deshalb das Forum als kostenlosen Dienstleister betrachten. Dadurch wdn dann nicht nur Endlosketten immer gleicher Anfragen ausgelöst, sondern jeder Wechsel in der Mitarbeiterzuständigkeit, der Software-Version oder in den betriebl Anforderungen kann neue Nachfragen bewirken, wenn das angebotene Pgm nicht universal ist bzw nicht verstanden wird.
Ich für m.T. finde es unbefriedigend, immer wieder dasselbe zu entwickeln. Deshalb habe ich mich auf Anderes konzentriert → Universallösungen, überwiegend in Form von UDF. Ebendarum auch kann für mich die Meinung von ProfiPgmierern, die das hier als einfache „Entspannungsaufgaben” betrachten, weil sie sonst viel Komplizierteres umzusetzen haben, auf Grund der unterschiedl Motivationslage nicht maßgebl sein.
Und außerdem habe ich schon in meinem 1.Forumsjahr einsehen müssen, dass man nicht jedem helfen kann und muss. Dann lieber nur in besonderen Fällen tätig wdn, was inzwischen auch fast alle Cracks aus meinem 1.Jahr hier tun. Manche schweigen schon seit Jahren. Das werde ich eines Tages wahrscheinl auch tun… ;-)
Gruß + schöWE, Luc :-?

Beliebteste Forumthreads (12 Monate)

Bedingte Formatierung mit mehr als 3 Möglichkeiten

52
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

341 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bedingte Formatierung mit mehr als 3 Möglichkeiten

52 Beiträge zum Forumthread Beiträge zu diesem Forumthread

341 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

52
Beiträge zum Forumthread

Beiträge zu diesem Forumthread