OpenOffice.info

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

lg Andreas

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

Hallo Andreas,

[quote="keksi1970"]wenn jetzt B2 = Blau ist, soll diese Zelle blau bleiben.
[/quote]

ich weis ja nicht wie Dein bisheriger Code aussieht aber Du könntest mittels:[code]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[/code] die aktuelle Zellfarbe auslesen und dann in einer If-Abfrage das ganze steuern.

Viele Grüsse.

Jürgen

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