Office: Mit Schleife Zellen Farbe zuweisen

Hallo zusammen,

ich habe versucht über eine Schleife den Zellen meiner Arbeitsmappe Farben zuzuweisen, wobei die Farbzusammensetzung (RGB-Code) in drei Zellen der gleichen Zeile steht.

Folgendermaßen sieht mein Code aus

Code:

Nun wird mir folgende Fehlermeldung ausgegeben: Laufzeitfehler 5: "Ungültiger Prozeduraufruf bzw. ungültiges Argument"
Markiert wird die Zeile mit Cells("J ... )

Die Hilfe hilft mir leider nicht wirklich weiter.
Kann mir jemand sagen wo der Fehler liegt?

Vielen Dank im Voraus

:)

 

Hallo

ohne auf deinen Code näher einzugehen...

Cells(Zeile, Spalte)

also dementsprechend

Cells(i, "J").... usw

MfG Tom

 

Hi Crazy Tom,
vielen Dank für deine Antwort. Ich hab das getestet und es kommt immer noch der gleiche Fehler in der gleichen Zeile.
Der Code sieht jetzt folgendermaßen aus:
Code:

Jemand eine Idee woran es liegen könnte?

Gruß Ralf

 

Hallo

das liegt am "&" das hat da nix zu suchen

also entweder

Cells(i, "J")

oder Range("J" & i)

MfG Tom

 

Moin!
Ergänzend:
Mit Cells() = RGB() weist Du der Zelle den Default, also den Value bzw. Wert zu.
Mit Cells(1, 1) = RGB(150, 27, 18) wird 1186710 in der Zelle A1 stehen. *wink.gif*
Richtig ist:
Cells().Interior.Color = RGB()

Gruß Ralf

 

Vielen Dank euch beiden.
Jetzt funktioniert das Skript.

Gruß Ralf