Office: (Office 2010) Mittels Steuerelement Hintergrundfarbe einer Zelle ändern

Moin zusammen!

Ich erstelle gerade mit Word 2010 eine Vorlage für einen Reparaturbericht. In diesem Bericht werden demontierte Bauteile bzgl. ihres Zustandes bewertet. Dabei gibt es drei Klassifizierungen für ein Bauteil, welches entweder über Checkboxes oder ein Dropdown Menü ausgewählt werden (aktuell tendiere ich zu Dropdown).

Die Klassifizierung der Bauteile lautet wie folgt:
Note 1 - Bauteil ist ohne Nacharbeit wiederverwendbar
Note 2 - Bauteil muss nachgearbeitet werden
Note 3 - Bauteil ist Schrott

Für jedes Bauteil, das bewertet wird, wurde eine Tabelle angelegt in dem die Steuerelemente eingefügt wurden.
Ich möchte nun gerne, dass wenn der Bearbeiter die Note für das Bauteil vergeben hat, dass die Hintergrundfarbe innerhalb einer Zelle automatisch geändert wird.
Also für die Note 1 die Farbe grün, für die Note 2 die Farbe gelb und für die Note 3 die Farbe rot. Dadurch kann man beim Durchscrollen direkt sehen welche Bauteile welchen Zustand haben.

Ist dies irgendwie möglich?

:)

 

Hi

Formular Listenfeld mit abhängiger Hintergrundfarbe.

Gruß
TT

 

Hi,

siehe Anhang.

Gruß
TT

 

Klasse!

Das funktioniert super, danke dafür.

Hast du vielleicht noch einen Tipp/Hinweis inwiefern ich den Code dahingehend ändere, damit ich bestimmte Zellen anwähle, die dann ihre Hintergrundfarbe ändern?

Ich meine das folgendermaßen:

DropDown mit dem Tag: Ampel1 soll die Hintergrundfarbe der Zelle (Zeile 3, Spalte 3) in Tabelle2 ändern.

Danke und viele Grüße,
wuumbs

 

Moin,

es sind wirklich nur ein paar Zeilen Code ohne größere 'Geheimnisse'. Daher mein Tipp: ansehen, versuchen sie zu verstehen, anpassen.

Gruß und viel Erfolg
TT

 

Du hast vollkommen Recht. War wirklich nicht schwer. Allerdings macht der Code bei der Verwendung einige Probleme.

Aktuell ist es so, dass ich die Note im DropDown Menü auswähle und dann in irgendeine andere Zelle der gleichen Tabelle oder außerhalb der Tabelle klicken muss, damit sich die Hintergrundfarbe ändert.

Klicke ich allerdings nachdem ich die Note im DropDown ausgewählt habe in eine Zelle der zweiten Tabelle, ändert sich die Farbe in der zweiten Tabelle.

Eigentlich soll das Dokument bei der späteren Verwendung auch geschützt sein, so dass nur die Steuerelemente ausgefüllt / geändert werden können. Dazu habe ich den Code abgeändert, damit vor der Änderung der Farbe der Schutz aufgehoben wird und nach der Änderung der Farbe der Schutz wieder angewendet wird.

Grundlegend funktioniert dies auch. Allerdings muss ich ja nach der Auswahl der Note im DropDown wieder irgendwohin klicken, damit die Farbänderung durchgeführt wird. Und auch hier gibt es dann wieder Probleme mit der richtigen Einfärbung. Außerdem springt der Zeiger irgendwie durch einige Steuerelemente.

Ich habe das Dokument mal angehängt, vielleicht könnt ihr euch das ja mal ansehen und mir Tipps geben inwiefern ich das anpassen kann damit es wie gewollt funktioniert.

Gruß,
wuumbs

 

Hi,

Das ist (leider) normal. Das Ereignis, das das Färben der Tabelle auslöst, heißt "Private Sub Document_ContentControlOnExit" *grins . "OnChange" hat M$ vergessen zu implementieren.

Du hast den kompletten Code zu "Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)" gelöscht. Der stand da ganz sicher nicht drin, um dir zu zeigen, dass ich auch das "OnEnter" Ereignis kenne. Sieh ihn dir nochmal genau an (die Befehle Wort für Wort in Deutsche übersetzt sagen dir ganz genau, was da passiert = zwischengespeichert wird) und denk dann nochmal nach.

Gruß
TT

 

Hallo!

Entschuldige bitte mein stumpfes Vorgehen. Ich habe mir den Code jetzt Zeile für Zeile vorgenommen und verstanden. Doch gibt es noch ein kleines Problem, das ich trotz vieler Anpassungen und Versuche nicht selber in den Griff kriege.

Ich möchte in den einzelnen Tabellen meines Formulars vertikal verbundene Zellen einfärben. Deswegen habe ich für die Tabelle 1 den Code angepasst, damit auch die richtige Zelle (Zeile 2, Spalte 3) angesprochen wird.

Code:

Es funktioniert auch alles sehr gut. Wähle ich z.B. die Note im Dropdown Menü aus und klicke in den Header der Tabelle 2, ändert sich die Farbe der gewünschten Zelle und alles ist okay.
Leider gibt es ein Problem sobald ich nach der Auswahl der Note in ein Feld klicke (egal ob in Tabelle 1 oder Tabelle 2), das auch ein DropDown Menü enthält. Die Farbe der gewünschte Zelle ändert sich zwar, aber es erscheint folgender Fehler:

"Laufzeitfehler '5941': Das angeforderte Element ist nicht in der Sammlung vorhanden."
Im Code wird dann folgende Zeile als fehlerhaft markiert:

Set oRange = Selection.Tables(1).Cell(lRow, lCol).Range

Ich habe mein Dokument nochmal angehängt und die Felder, die nach der Auswahl Probleme machen blau markiert.

Vielen Dank schonmal für die Hilfe!

Gruß,
wuumbs

 

Hi,

Der Code "Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)" wird jedes Mal ausgeführt, sobald du irgendein CC aktivierst. Gibt es dann die Zeile -3 bzw. die Spalte + 1 nicht, muss es zwangsläufig zu einem Fehler kommen.

In deinem Beispiel würd ich folgenden Code verwenden (ungetestet wg. wenig Zeit).

Code:

Ich hab dafür meinen Ursprungscode genommen, kann sein, dass du noch was anpassen musst.

Gruß
TT

 

Danke!

Das hilft mir schon sehr weiter.
Eine Frage bezüglich der Fälle der DropDown Auswahl hätte ich noch.

Aktuell sieht der Code ja wie folgt aus:
Code:

Es handelt sich bei dem Formular, das ich aktuell erstelle um einen Reparaturbericht. Die DropDown Felder unterscheiden sich für jede Tabelle.

z.B.
DropDown der Tabelle 1:
Getriebe ist wiederverwendbar.
Getriebe muss repariert werden.
Getriebe ist Schrott.

DropDown der Tabelle 2:
Motor ist wiederverwendbar.
Motor muss repariert werden.
Motor ist Schrott.

Es kommen aber bei allen DropDown Feldern immer die Kernbegriffe "wiederverwendbar", "repariert" und "Schrott" vor.

Könnte ich den Code der die Fälle abfragt so abändern, dass nur nach einem der Kernbegriffe geprüft wird?
Sonst müsste ich ja für jedes DropDown einen eigenen Code schreiben.

Ich habe es mal mit einem Sternchen vorne und hinten probiert aber das funktioniert leider nicht

Code:

 

Wäre echt gut gewesen, diese Info am Anfang zu haben. Es macht keinen Spaß, einen Pullover immer wieder aufzuribbeln und von vorne anzufangen. Abgesehen davon hab ich im Moment keine Zeit, daher nur eine unelegante IF- und GoTo-Lösung:

Code:

TT

 

In einer ruhigeren Minute nachgedacht ...

Code:

TT