OpenOffice.info

Hi, ich möchte den aktuellen ZellBereich einer Tabelle formatieren (Attribute setzen). Leider finde ich nur Lösungen für EinzelZellen und keine für ZellBereiche. Irgendetwas fehlt innerhalb meines Makros:

Sub ZellAttribute_Bereich
Dim oDoc as Object
Dim oBereich as Object REM Identifizierung des aktivierten Zellbereiches
oDoc = StarDesktop.CurrentComponent
oBereich = oDoc.getCurrentSelection().getRangeAddress() REM aktive Cursorposition identifizieren
msgbox "Spalte AB: " +oBereich.StartColumn REM TestAusgaben: 1.Spalte über oBereich richtig angesprochen
REM und nun fehlt etwas ???

???.CellBackColor = RGB(255,0,0) REM Zellhintergrund 255,0,0 = Rot
end sub

Gruss Wolf

Hi Stephan,
Dein Beispiel 1 enspricht genau meiner Vorstellung. Das 2. Beispiel gibt mit die Gelegenheit, schon den übernächsten Schritt zu machen - muss mich jedoch noch etwas damit beschäftigen.
Noch eine Frage zu Beispiel 1: Wozu dient Deine Zeile:

ThisComponent.CurrentController.Select(oBereich)

Habe die Sub ohne getestet und das Ergebnis war gleich.
sub ZellAttribut_Bereich_2
oDoc = StarDesktop.CurrentComponent
oBereich=oDoc.getCurrentSelection()
with oBereich
.CellBackColor = RGB(255,0,0)
REM .... weitere Properties
end with
end sub
Gruss Wolf