Zellbereiche mit Farbe füllen

[turtle47]

Hallo Experten,

ich möchte mehrere Zellbereiche mit Farbe füllen.

Mit folgendem Makro wird ein Zellbereich mit Farbe gefüllt:

Code: Alles auswählen

Sub FarbeZellen
oCalc = ThisComponent
oBereich=oCalc.Sheets(0).getCellRangeByName("D4:D8")
oBereich.CellBackColor = RGB (47, 138, 221)
end sub

Wie stelle ich es aber an mehrere Zellbereiche zu füllen.

Mit:

Code: Alles auswählen

Sub FarbeZellen
oCalc = ThisComponent
oBereich=oCalc.Sheets(0).getCellRangeByName("D4:D8,F4:F8" )
oBereich.CellBackColor = RGB (47, 138, 221)
end sub

funktioniert es leider nicht!

Vorab schon Danke für die Hilfe.

Jürgen

[Stephan]

Nimm einfach:

Code: Alles auswählen

Sub FarbeZellen
z = Array("D4:D8","F4:F8") 
oCalc = ThisComponent 
For i = LBound(z()) To UBound(z())
	oBereich=oCalc.Sheets(0).getCellRangeByName(z(i)) 
	oBereich.CellBackColor = RGB (47, 138, 221) 
Next i
end sub

Gruß
Stephan

[turtle47]

Hallo Stephan.

vielen Dank für die schnelle Antwort.
Funktioniert richtig super!!
Ist von Dir ja auch nicht anders zu erwarten.

Hatte in der Zwischenzeit durch experimetieren auch eine Lösung gefunden.

Was hälst Du denn von meinem Ansatz, wenn ich in dem Makro zu dem jeweiligen Bereich noch einen Kommentar hinterlegen will:

Code: Alles auswählen

Sub Sub FarbeZellen
oCalc = ThisComponent
oBereich=oCalc.Sheets(0).getCellRangeByName("D4:D8" ) 'mit MwSt.
oBereich.CellBackColor = RGB (47, 138, 221)
oBereich=oCalc.Sheets(0).getCellRangeByName("J5:J16" ) 'ohne MwSt.
oBereich.CellBackColor = RGB (47, 138, 221)

................

End Sub

oder kann es da zu irgendwelchen Komplikationen kommen?

Ich möchte hier keinen Smaltalk anfangen, aber wie lange beschäftigst Du Dich schon mit Basic um so ein Wissen präsent zu haben?

Nochmals Danke


Jürgen

[Stephan]

Ist von Dir ja auch nicht anders zu erwarten.

Na, nun aber nicht zuviel Lob - zumal die Anzahl meiner posts nur etwas über meine Ausdauer sagt hier Fragen zu beantworten und nicht darüber ob ich so gut bin.

oder kann es da zu irgendwelchen Komplikationen kommen?

Nein, das ist OK.

aber wie lange beschäftigst Du Dich schon mit Basic um so ein Wissen präsent zu haben?

Naja, wenn ich es wörtlich beantworte seit Herbst 1985. Basic (bzw. ein spezifischer Basic-Dialekt) war die erste Programmiesprache die ich erlernt habe.
Aber Du meinst natürlich eigentlich StarBasic (nehme ich an). Da ich das hier:
viewtopic.php?t=881&highlight=stephan
als ersten post von mir im Basic-Forum finde (damals noch als unangemeldeter Gast), schätze ich mal seit Februar oder März 2004.



Gruß
Stephan