Office: .Backcolor eines Labels bei bestimmten Wert ändern

Hallo ihr,
schon wieder ein neues Problem.

Ich habe in einer UserForm einige Labels die in Abhängigkeit des Caption-Wertes rot oder grün aufleuchten sollen. Mein Code dazu lautet:

Code:

Den Code müsste ich jetzt noch 6x schreiben und anpassen. Zur Vereinfachung hatte ich erst vor das mit den Me.Controls zu lösen:

Code:

Der erfahrenen Programmierer unter Euch werden sofort feststellen, dass die Me.Controls zwar die ".Name"-Eigenschaft unterstützt, nicht aber die ".Caption" Eigenschaft.

Frage: Wie löse ich das Problem? (Ist schon einmal aufgetreten, da habe ich einfach die ".Name" umbenannt und konnte weiterarbeiten)

Muss ich jetzt jede Label-Caption in eine Variable laden? Und wie sieht das dann aus?

Gruß
Anja

:)

 

Hallo Anja,

nein, kein neues, sondern ein altes, aus dem Du trotz der Hinweise falsche Schlussfolgerungen gezogen hast:

Problem lösen und "irgendwas basteln", um weiterzumachen, sind 2 unterschiedliche Dinge...

http://www.ms-office-forum.de/forum/...d.php?t=298003

Eine Lösung hast Du doch selbst schon in Deinem Code, siehe verlinkter Beitrag, die Du nur adaptieren musst:
Code:

Nutze das doch einfach...

Grüße
EarlFred

 

Hallo EarlFred,

wenn ich den TypeName “Label“ verwende, dass dann die Caption Eigenschaft verfügbar ist? Glaube das harte ich schon mal erfolglos probiert.

Gruß
Anja

 

Hallo Anja,

glauben oder wissen? Was klappt nicht? Wo liegt Dein Problem? Was hast Du ggf. in der Aufgabenstellung an Informationen unterschlagen?
Warum probierst Du es nicht einfach nochmal aus?

Ich glaube zu wissen, dass es so geht:
Code:

Grüße
EarlFred

 

Hallo EarlFred,

auch auf die Gefahr hin zu nerven aber ich will es verstehen... was genau macht LCase und wie kommt man darauf es zu verwenden??

Danke für die Geduld.

Gruß Anja

 

Hallo Anja,

wenn man das Wort LCase im VBE markiert (oder einfach nur den Cursor reinstellt) und dann F1 drückt, erhält man zielgerichtete Hilfe mit der sinngemäßen Aussage:
Der geklammerte Ausdruck wird in Kleinbuchstaben "umgerechnet".
Verglichen wird dann ebenfalls mit einem Ausdruck in Kleinschrift.

Hintergrund: EarlFred ist eine faule Sau und hat keine Lust, nachzuschauen, ob es "Combobox" oder "ComboBox" heißt - also knechtet er den Rechner, nur die kleingeschriebenen Buchstabenfolgen zu vergleichen, da "ComboBox" "Combobox" ist, hingegen LCase("CoMbOBox") = "combobox"
Würde er sich selbst also auch nur etwas mehr Mühe geben, könnte sein Rechner etwas durchatmen.

Grüße
EarlFred

 

Hallo EarlFred,

danke für die umfangreiche Antwort.
also hat das LCase nichts mit der eigentlichen Wirkung des Codes zu tun, sondern dient nur der Fehlervermeidung.

Gut zu wissen, aber für mich als Anfänger würde es aus meinem Code noch raus lassen und die korrekten Bezeichnungen "von Hand" prüfen, da mich zu viel Code irgendwann verwirrt. Aber der Hinweis auf F1-Hilfe war mal wieder angebracht.

Unterschlagen hatte ich nichts, der Code den du zur verfügung gestellt hast erfüllt noch nicht alle Bedingungen:

Hinter jedem Label (die bei über Wert 0 die Farbe ändern sollen) steht jetzt eine Checkbox, die in Abhängigkeit der Farbe(oder des Werts) = True oder = False gesetzt werden soll.
Probleme bereitet mir dabei die Addressierung bzw. Kopplung der Checkbox an ein bestimmtes Label.

Mein Code sieht jetzt so aus:

Code:

Nur den Haken setzt er natürlich nicht, weil er nicht weiß bei welcher checkbox er wann = True setzten soll.

Kannst du dir das bitte noch einmal ansehen?

Grüße
Anja