Zellfarbe finden

[keksi1970]

Hi,

ich habe ein Makro, welches einen bestimmten Zellbereich gelb markiert

und zwar markiere ich eine oder mehrere Zellen untereinander und das Makro färbt diese +6 zelle nach rechts in der Farbe Gelb

mein Problem ist, dass, wenn die 2. zelle rechts blau markiert ist, diese Farbe nicht geaendert werden darf.

BSP : zelle A1 bis A4 markiert, Makro ausführen, Bereich A1:F4 wird gelb.
wenn jetzt B2 = Blau ist, soll diese Zelle blau bleiben.

lg Andreas

[turtle47]

Hallo Andreas,

wenn jetzt B2 = Blau ist, soll diese Zelle blau bleiben.

ich weis ja nicht wie Dein bisheriger Code aussieht aber Du könntest mittels:

Code: Alles auswählen

Sub FarbeAuslesen
	odoc=thiscomponent
	oSheet = ThisComponent.CurrentController.getActiveSheet()
	oZelle=oDoc.getCurrentSelection() 'selektierte Zelle
	farben = oZelle.CellBackColor
	f= "RGB-Farben: " & red(farben) &"," & green(farben) & "," & blue(farben)
	msgbox f
end sub

die aktuelle Zellfarbe auslesen und dann in einer If-Abfrage das ganze steuern.

Viele Grüsse.

Jürgen

[keksi1970]

danke Jürgen, zumindest hast du mich auf die richtige Idee gebracht

lg Andreas