Office: (Office 2013) Zelle färben, Farbcode aus anderer Zelle auslesen

Hallo ihr da draußen!

Ich habe in einer Excel-Tabelle ein Kombinationsfeld eingefügt.
Damit kann ich verschiedene Farbcodes aus einer Liste auslesen.
(grün=43, gelb=6, orange=44 usw.)

Die Zellverknüpfung, also die Ausgabe welche Farbe ich ausgewählt habe, ist in Worksheets("Controlling").Range("D35").
In diesem Feld wird nicht der Farbcode (siehe oben) angezeigt, sondern die Stelle, an der die Farbe in der Liste für das Kombi-Feld steht (grün=1, gelb=2, orange=3 usw.).

Ein Commandbutton wurde mit folgendem Code belegt:

Code:

Er liest die Zahl in Worksheets("Controlling").Range("D35") aus. Das klappt *Smilie .
Anschließend soll von Worksheets("Controlling").Range("D34") aus, entsprechend der ausgelesenen Zahl nach unten gegangen werden.
In diesem Feld ist dann der Farbcode, der in der weiteren Formel eingebaut werden soll.

Leider funktioniert der Code so nicht.
Wie auch!
Ich weiß selber, dass die Zeile
>Farbcode = Worksheets("Controlling").Range("C34") + Farbnummer-Zahl nach unten< keine Codezeile ist. *wink.gif*

Aber was muss da stehen?
Meine Recherche ergab, dass ich "irgendetwas" mit Offset (...) schreiben muss. Leider sind meine VBA-Kenntnisse eher gering, um zu verstehen, wie ich damit umgehen muss.

Eventuell hat ja einer von euch ein wenig Zeit/Lust/Muse, um meinen halbfertigen Code den letzten Schliff zu geben.

Ich würde mich sehr freuen.

Gruß, Michael

:)

 

Hallo Michael,
versuch mal folgendes:

Code:

Damit solltest Du die ermittelte Zahl eigentlich dazu Addieren können. Ich hoffe ich habe dich richtig verstanden.
Gruss Achim

 

Ich habe hier einmal das Bild hochgeladen, zum besseren erklären.
[url='http://www.directupload.net']
[ATTACH=full]14882[/ATTACH]
[/url]

Wie schon geschrieben, in D35 wird die Nummer der Farbe ermittelt (Kontrollfeld). Diese Zahl soll nun genommen werden, um in der Liste C35:C39 den Farbcode zu ermitteln.

Dieser Farbcode soll dann hier:

Code:

verarbeitet werden.

Dazu muss mein Ursprünglicher Code angepasst werden. Quasi so:
Nimm die Zahl aus D35, beginne bei C35 und gehe so viele Zellen nach unten, die in D35 steht. Der Wert aus dieser Zelle = Farbcode.

Ich hoffe, dass es nun (besonders durch das Bild, verständlicher geschrieben ist.

Gruß, Michael *bye

 

Hey,
dann so:
Code:

oder so
Code:

Gruss Achim

 

Hallo Achim,

theoretisch funktioniert der Code nun.
Durch msgbox konnte ich ermitteln, dass als Farbcode tatsächlich die Korrekte Farbe angezeigt wird.
Nur wenn ich den Code ausführe, wird jede Zelle schwarz gefärbt. *frown.gif*

Michael

 

Hi Michael,

dir ist bewusst, dass es einen Unterschied zwischen Color und ColorIndex gibt? Veilleicht benutzt du ja nur die falsche Eigenschaft.

 

Hallo Michael,

dann schreib doch mal vernünftig was Du wirklich vor hast. Dann kann man Dir auch evtl. helfen.
Oder schau Dir mal folgenden Befehl an: Code:

Gruss Achim

 

Hallo,

ich habe den Code und die Tabelle noch einmal wie folgt geändert:

[url='http://www.directupload.net']
[ATTACH=full]14884[/ATTACH]
[/url]

Ich kann jetzt mit dem "Springer" die 3 Zahlen auslesen, die ich für meine gewünschte Farbe benötige, z.B. für orange 255, 153, 51.

die werden dann in die Zeile mit dem "Farbcode" eingearbeitet.

Ein Klick auf den Button: Laufzeitfehler 438, Objekt unterstützt diese Eigenschaft oder Methode nicht.

Wo genau liegt denn nun (schon wieder) der Fehler?

Gruß, Michael *bye

 

Hallo Michael,
lass mal das .interior vor dem. Color weg. Und definiere rot, grün, blau als Integer.
Aber warum so kompliziert? Frag doch einfach die eingefärbten Zellen ab. Code:

Diesen Wert der Farbe kannst Du dann entsprechend weiter verarbeiten.
Gruss Achim

 

Hi Michael,

Selection wird wohl dann falsch sein - könnte so etwas wie Activesheet.OLEObjects("ComboBox1").Interior.Color sein.

 

Hallo Beverly,
eigentlich sollte man davon ausgehen das sein Script aus #1 so auch getestet ist. Schreibt er zumindest.

Wenn er das mit Zahl Farbe also Zahl x getestet hat sollte doch alles weitere hier geschriebene stimmen.
Gruß Achim

 

Hallo Beverly und Achim,

ich habe den Code jetzt erst einmal mit RGB belassen.
Ein Profi würde sich darüber eher wundern, aber für meine Zwecke reicht es.

Mein Dank an euch beide!

Gruß, Michael

 

Code: