Office: Farbe aus Farbpalette übernehemen

Hallo

Ich kann ja per

Code:

eine Farbpalette aufrufen, wenn ich auf eine Zelle im Bereich D36:AH37 klicke.

Wie kann ich eine Farbe aus der Palette in die gewählte Zelle übernehemen ?
Klicke ich die Farbe an und gehe auf "OK", bekomme ich folgende Fehlermeldung:
"Die Show-Methode des Dialog-Objekts konnte nicht ausgeführt werden."

Nette Grüße
Torsten

:)

 

Hallo torsten,

ich habe mal in mein Archiv geschaut.

 

Hi Torsten,

wenn ich mich nicht irre, kannst du die gewählte Farbe nicht auslesen. Du musst dir selbst eine Palette "bauen" (UserForm) und z.B. einzelnen Schaltern eine Farbe zuweisen,

 

Zum Beispiel mit einer UDF.

 

Guten Morgen !

Vielen Dank für die Antworten !

@Harry
Jaaa - genauso wollte ich es haben, zumal es die Standardfarben sind.

1. Besteht die Möglichkeit das UDF auf EINE verbundene Zelle in der sich auch noch Text befindet anzuwenden ?
Bspw. D36 ist bis E37 verbunden und es steht ein Text in der verbundenen Zelle.
2. Kann man das UDF auch auf die Fontfarbe (andere verbundene Zelle) anwenden ?

Versuche ich das, so bekomme ich eine "Typenunverträglichkeit".

Eine Antwort wäre nett.

Nette Grüße
Torsten

 

Hallo Torsten,

If Not Intersect(Target, Range("D36:AH37")) Is Nothing Then Target.Interior.Color = SelectColor()

 

Hallo Hajo

Vielen Dank !
Funktioniert einwandfrei.
Somit klappt das auch mit der Fontfarbe !

Vielen Dank !

Nette Grüße und ein schönes Wochenende
Torsten

 

Hi Torsten,

ich kann mir nicht vorstellen, dass der Code so mit der Schriftfarbe funktionieren soll, denn Interior.Color ist die Füllfarbe und nicht die Schriftfarbe - da müsste es doch eigentlich heißen:

Code:

Oder sehe ich das falsch?

 

Nein - da liegst Du nicht falsch (wenn ich mal als DAU so überheblich sein darf *biggrin.gif* )

Code:

Somit kann zwischen Font- und Füllfarbe per UDF und freie Farbwahl (nämlich AU1=Nix) gewählt werden.

Schön wäre es natürlich, wenn man auf eine Zelle klicken würde und man könnte sowohl Font- als auch Füllfarbe gleichzeitig ändern.
Das ist aber glaube ich zuviel verlangt.....

Nette Grüße und ein schönes Wochenende
Torsten

 

Hi Torsten,

sorry, aber ich liege da nicht falsch, denn du hast für die Schriftfarbe ja ebenfalls

Is Nothing Then Target.Font.Color = SelectColor()

verwendet und nicht (wie ihn Hajos Beitrag steht) .Interior.Color - so wie ich geschrieben habe.

 

Sorry, wenn es falsch rübergekommen ist (das war nicht meine Absicht).

Ich wollte BESTÄTIGEN, dass Du mit Deiner Aussage NICHT falsch lagst.
Daher habe ich ja den Code gepostet.
Es sollte nur verdeutlichen, dass ich das "Problem" mit der Fontfarbe selber
(durch Änderung von .Interior zu .Font) "gelöst" habe.

Aber noch eine Frage:
Kann die Funktion so geändert werden, dass wenn man im UDF auf "Abbruch" klickt,
auch wirklich "abgebrochen" wird und die Ursprungsfarbe der Zelle erhalten bleibt ?

Nette Grüße
Torsten

 

Hi Torsten,

ich habe mal versucht, das anzupassen - ist ein wenig kompliziert geworden, da bei keiner Füllfarbe sonst die Füllfarbe Weiß zugewiesen würde:

Code:

Ich habe das auch mal auf das Doppelklick-Ereignis umgeschrieben, weil ich persönlich es nervend finden würde, wenn bei jeder Zellauswahl die Palette erscheinen und ich eine Auswahl treffen müsste, auch wenn ich das gar nicht möchte *wink.gif*

 

Danke für Deine Antwort und die damit verbundene Mühe.

Wenn ich nun auf eine Zelle klicke (einfach oder doppelt)
bekomme ich hier
Code:

folgenden Fehler: "Argument ist nicht optional"
markiert wird "SelectColor"

Ne Idee ? Was muss im Tabellenblatt raus ?

Nette Grüße
Torsten

 

Hi Torsten,

mein Code für die Übergabe sieht aber völlig anders aus.

 

Es wäre sehr nett, wenn Du ihn posten würdest.

Nette Grüße
Torsten