Seite 1 von 1
Zellbereiche mit Farbe füllen
Verfasst: Fr, 25.08.2006 19:33
von 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
Verfasst: Fr, 25.08.2006 20:26
von 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
Verfasst: Fr, 25.08.2006 20:56
von 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
Verfasst: Fr, 25.08.2006 22:19
von 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