Zellbereiche mit Farbe füllen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Zellbereiche mit Farbe füllen

von Stephan » Fr, 25.08.2006 22:19

Ist von Dir ja auch nicht anders zu erwarten.
Na, nun aber nicht zuviel Lob :wink: - 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

von turtle47 » Fr, 25.08.2006 20:56

Hallo Stephan.

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

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

von Stephan » Fr, 25.08.2006 20:26

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

Zellbereiche mit Farbe füllen

von turtle47 » Fr, 25.08.2006 19:33

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

Nach oben