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.
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.
Viele Grüße Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
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.
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
Viele Grüße Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
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.
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.
Mit lieben Grüßen Anton.
Windows 10 64bit Office365 32bit
Folgende(r) 1 Nutzer sagt Danke an EA1950 für diesen Beitrag:1 Nutzer sagt Danke an EA1950 für diesen Beitrag 28 • König Ludwig
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.
Farbe übernehmen
![[-]](https://www.clever-excel-forum.de/images/collapse.png)