Farbe übernehmen

[König Ludwig]

Hallo miteinander,

gerne würde ich die Farbe aus der aktiven Zelle in die "Farbkanne" übernehmen - sorry, ich weiß nicht, wie das Ding offiziell heißt
Das Ziel ist folgendes:
1. Ich wähle eine Zelle aus, diese ist eingefärbt, nicht unbedingt eine Standardfarbe.
2. Diese Farbe möchte ich übernehmen - und zwar nur die Farbe - und diese Kanne soll dann diese Farbe als aktiv nutzen.
3. Da soll die Farbe drin bleiben, bis ich eine andere wähle, so daß ich sie direkt zur Verfügung habe.

Zur Verdeutlichung habe ich hier noch einen Screenshot angehängt.

Es sollte natürlich "schnell" gehen  , also einen Klick auf einen Button o.ä. leider weiß ich nicht wie man die Farbkanne per VBA anspricht,
generell sind aber ein paar VBA-Kenntnisse vorhanden.

Vielen Dank für Eure Hilfe!

[Klaus-Dieter]

Hallo,

wenn du eine Füllfarbe ausgewählt hast, wird die unterhalb der "Kanne" angezeigt. Dort bleibt sie, bis du eine andere Farbe ausgewählt hast, steht also bei jedem Klick auf die Schaltfläche Füllfarbe zur Verfügung.

[König Ludwig]

Hallo Klaus-Dieter,

vielen Dank erst Mal für Deine Antwort, aber das meinte ich nicht.

Beispiel: 
Ich habe für Zelle A1 einen Gelbton angelegt, kein Standard, sondern in -> weitere Farben -> benutzerdefiniert
Das mache ich jetzt so oft mit allen möglichen Farben, bis dieser Gelbton auch in den zuletzt verwendeten Farben nicht mehr auftaucht.
Jetzt will ich aber eine neue Zelle mit genau diesem Farbton belegen.
Der Weg zu Fuß wäre ja, die Zelle A1 auswählen, RGB-Wert raussuchen, neue Zelle anwählen, RGB-Wert eintippen und übernehmen.
Gibt es da eine Möglichkeit diesen Farbton aus A1 direkt auf den Pinsel zu übernehmen?
Das Programm "Paint" hat dafür das Werkzeug der Pipette (Farbauswahl)
So etwas in der Art hätte ich mir vorgestellt.
Vielleicht gibt es das sogar als Standardwerkzeug in Excel, dann ist es mir aber noch nie aufgefallen.
Falls nicht, wäre für mich auch eine Auswahl über VBA ok, das könnte ich ja dann ins Menüband übernehmen.

Viele Grüße
Alexander

[Klaus-Dieter]

Hallo Alexander,


wer mich etwas näher kennt, kennt auch meine Einstellung zu Farben in Excel. In meinen Kursen habe ich bei den alten Excelversionen immer gesagt, Excel kann gleichzeitig 56 verschiedene Farben darstellen, das sind mindestens 50 zu viel.

Aber das wolltest du ja nicht wissen. Mit dieser Funktion kannst du Farben aus Zellen auslesen, sogar die, die mit bedingter Formatierung erzeugt sind:

Code:

Sub farb()
    MsgBox Cells(2, 7).DisplayFormat.Interior.Color
End Sub

[König Ludwig]

Hallo Klaus-Dieter,

damit bekomme ich zwar den Dezimalwert der Farbe angegeben, auch den der aktiven Zelle, wenn ich den möchte,
allerdings übernimmt Excel diese Farbe nicht in den "Farbtopf".
Aber vielleicht verlange ich da auch zuviel von Excel und das ist nicht vorgesehen, dennoch Danke für Deine Hilfe.

Viele Grüße
Alexander

[EA1950]

Hallo Alexander,

ich habe dir im Arbeitsblatt 2 Buttons eingefügt, die eine Art Farbpipette simulieren sollen:

1) Wenn du eine Hintergrundfarbe aus einer bestimmten Zelle (mehrmals) verwenden möchtest:
Zuerst diese Zelle markieren
dann den Button "Hole Hintergrundfarbe aus aktiver Zelle" klicken.
(Dadurch wird diese Farbe in der Public-Variablen "Farbe" vom Typ Long gespeichert.)

2) Willst du diese gespeicherte Farbe in einer anderen Zelle als neue Hintergrundfarbe anwenden:
Zuerst diese Zelle markieren
dann den Button "Füge gespeicherte Farbe als Hintergrundfarbe in aktiver Zelle ein"  klicken.

3) Punkt 2) sooft wiederholen wie benötigt.

[König Ludwig]

Hallo Anton,

vielen Dank, so kann ich das übernehmen.
Ich habe die Codes jetzt an die Menüleiste in der Personal.xlsb mit angehängt, weil ich die Funktion öfter benötige.

Viele Grüße
Alexander