Hallo Zusammen,
ich bin neu hier und hoffe ich habe nicht irgendwo bereits einen Eintrag übersehen und poste unnötig.
Und zwar habe ich folgendes Problem:
Ich habe eine Excel Mappe (mit Makros). Worauf sich auf Tabelle1 eine Landkarte aus mehreren Textfeldern befindet.
Auf Tabelle2 befindet sich eine Liste mit RGB Werten (In einer Spalte von einer Tabelle).
Also jedem Mitarbeiter ist eine Farbe zugeordnet. Und in diesem Fall werden den Mitarbeitern verschiedene Postleitzahlgebiete zugeordnet und um dies darzustellen, soll ich entsprechendes Textfeld in die entsprechende Farbe färben. Indem man in die Tabelle einen Mitarbeiter einträgt, füllt sich das Feld mit dem RGB Wert automatisch.
Ich habe bereits rausgefunden, dass ich die Textfelder färben kann indem ich wie folgt die Farbe in den Code eingebe:
Sub ZuordnungFarbe()
Tabelle1.Shapes("S_01").Select
Selection.Interior.Color = RGB(255, 228, 79)
End Sub
Jetzt ist allerdings das Problem, dass die Farbe variieren kann (Wenn z.B. das Gebiet auf einmal von MA1 zu MA2 wechselt).
Weiß jemand zufällig wie und ob ich den Wert der Farbe auch durch eine ".Range" irgendwie aus der Zelle entnehmen kann? (Dann würde dieser sich auch automatisch ändern, wenn sich der Wert der Zelle ändert). Falls jemand eine andere Idee hat, bin ich auch offen dafür. Und wenn es eine Möglichkeit gibt, ist es vllt. auch möglich den Code kürzer zu halten ohne jedes Textfeld einzeln anzusprechen ohne dass er die Textfelder anhand der Position sucht (Das funktioniert nicht, weil er sie dann nicht mehr findet, wenn Textfelder sich überschneiden)? (Sind ja immerhin 95 Stück)
Ich hoffe ihr versteht was ich möchte
Liebe Grüße
Karma
ich bin neu hier und hoffe ich habe nicht irgendwo bereits einen Eintrag übersehen und poste unnötig.
Und zwar habe ich folgendes Problem:
Ich habe eine Excel Mappe (mit Makros). Worauf sich auf Tabelle1 eine Landkarte aus mehreren Textfeldern befindet.
Auf Tabelle2 befindet sich eine Liste mit RGB Werten (In einer Spalte von einer Tabelle).
MA1 | 255, 0, 0 |
MA2 | 0, 255, 0 |
MA1 | 255, 0, 0 |
MA1 | 255, 0, 0 |
MA2 | 0, 255, 0 |
Also jedem Mitarbeiter ist eine Farbe zugeordnet. Und in diesem Fall werden den Mitarbeitern verschiedene Postleitzahlgebiete zugeordnet und um dies darzustellen, soll ich entsprechendes Textfeld in die entsprechende Farbe färben. Indem man in die Tabelle einen Mitarbeiter einträgt, füllt sich das Feld mit dem RGB Wert automatisch.
Ich habe bereits rausgefunden, dass ich die Textfelder färben kann indem ich wie folgt die Farbe in den Code eingebe:
Sub ZuordnungFarbe()
Tabelle1.Shapes("S_01").Select
Selection.Interior.Color = RGB(255, 228, 79)
End Sub
Jetzt ist allerdings das Problem, dass die Farbe variieren kann (Wenn z.B. das Gebiet auf einmal von MA1 zu MA2 wechselt).
Weiß jemand zufällig wie und ob ich den Wert der Farbe auch durch eine ".Range" irgendwie aus der Zelle entnehmen kann? (Dann würde dieser sich auch automatisch ändern, wenn sich der Wert der Zelle ändert). Falls jemand eine andere Idee hat, bin ich auch offen dafür. Und wenn es eine Möglichkeit gibt, ist es vllt. auch möglich den Code kürzer zu halten ohne jedes Textfeld einzeln anzusprechen ohne dass er die Textfelder anhand der Position sucht (Das funktioniert nicht, weil er sie dann nicht mehr findet, wenn Textfelder sich überschneiden)? (Sind ja immerhin 95 Stück)
Ich hoffe ihr versteht was ich möchte
Liebe Grüße
Karma