Zelle nach RGB-Angaben färben

[turtle47]

Hi DmxQuni,

gibte es eine formel dafür

Nein.

oder brauch ich einen speziellen code ?

Ja.

Findest Du hier. Müsste nur für Spalten angepasst werden.
Übrigens klemmt wahrscheinlich Deine Shifttaste. Solche durchgehend kleingeschriebenen Texte lassen sich unheimlich schlecht lesen.

Viel Erfolg.

Jürgen

[Karolus]

Hallo
Geht per Makro
Erklärungen im Code

Code: Alles auswählen

Sub B1_einfaerben
with thisComponent.sheets(0) '1. Tabellenblatt mit Index 0
	r = .getcellrangebyname("A1").value   'In A1 bis-
	g = .getcellrangebyname("A2").value  'A3 stehen die -
	b = .getcellrangebyname("A3").value  ' rgb-werte
	.getcellrangebyname("B1").cellbackcolor = RGB(r,g,b) 'B1 wird eingefärbt.
end with
End Sub

Gruß Karo

[turtle47]

Hi Karo,

sorry, aber es muss trotz verbundener Zellen heissen:

Code: Alles auswählen

.getcellrangebyname("B1:B3").cellbackcolor = RGB(r,g,b)

Viele Grüsse.

Jürgen

[Karolus]

Hallo Jürgen

..
daneben würde ich gerne eine zelle mit der aus diesen Werten resultierenden Farbe einfärben.
..

Daraus schloss ich das er nur eine Zelle einfärben will, seinen 2. Beitrag hatte ich noch nicht gelesen.

nur wie bekomm ich das ganze jetzt Automatisiert hin, so dass ich nicht immer wieder das Makro ausführen muss?

@kuni
such im Basic und Java-unterforum nach "Listener"

Gruß Karo

[turtle47]

Hallo Zusammen,

seinen 2. Beitrag hatte ich noch nicht gelesen.

Das entschuldigt natürlich alles.

nur wie bekomm ich das ganze jetzt Automatisiert hin, so dass ich nicht immer wieder das Makro ausführen muss?

Wie Karolus schon schrieb, mit einem Listener der beim Öffnen der Datei gestartet wird und beim schliessen wieder deaktiviert wird.
Die Einstellung dazu findest Du in der Datei unter Menue > Extras > Optionen > Anpassen > Reiter Ereignisse.

Hatte eine ähnliche Datei noch in meiner Grabbelkiste und kurz umgebaut.


Viel Spass.

Jürgen

[turtle47]

Hallo Zusammen,

das Thema hatte mich vor einiger Zeit schon einmal beschäftigt und ich wollte das mit einer "Function" lösen.
Aber leider ist es nicht möglich über eine "Function" direkt die Farbe einer Zelle mittels

Code: Alles auswählen

oCell.CellBackColor = RGB(255,0,0)

direkt zu ändern.

Jetzt habe ich doch eine Möglichkeit gefunden.
Und zwar über den Weg einer Zellvorlage.

Beispiel:
Zunächst legt man eine eigene Zellvorlage (F11) an. In diesem Beispiel mit dem Namen "Cell_Background_Color"

Der Code für die Function lautet dann:

Code: Alles auswählen

Function Change_BGC()
Dim oDoc
	with thisComponent.getSheets().getByName("Tabelle1")
	r = .getcellrangebyname("A1").value   'In A1 bis-
	g = .getcellrangebyname("A2").value  'A3 stehen die -
	b = .getcellrangebyname("A3").value  ' rgb-werte
	end with
	oDoc = ThisComponent
	oStyles = oDoc.StyleFamilies 'Vorlagen des Dokumentes anprechen
	oCharacterStyles = oStyles.getByName("CellStyles")'Zellvorlagen anprechen
	myStyle = oCharacterStyles.getByName("Cell_Background_Color")'erstellte Zellvorlage anprechen
	myStyle.CellBackColor = RGB(r,g,b)'Farbe der Zellvorlage zuweisen und somit auch der Zelle
End function

Die Syntax der Zielzelle lautet:

Code: Alles auswählen

=CHANGE_BGC(A1:A3)

Der Zielzelle dann die Zellvorlage zuweisen.

Die RGB-Werte schreibt man dann in den Zellbereich "A1:A3".

Und schwups ändert sich die Zellfarbe der Zielzelle.

Also, mir persönlich ist das so lieber als mit dem Listner im Hintergrund zu arbeiten.

Vielleicht kann das ja mal jemand brauchen.

Jürgen