OpenOffice.info

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:
[quote]ThisComponent.CurrentController.Select(oBereich)[/quote]

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

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:
[quote]Sub ZellAttribute_Bereich
Dim oDoc as Object
Dim oBereich as Object [color=green]REM Identifizierung des aktivierten Zellbereiches[/color]
oDoc = StarDesktop.CurrentComponent
oBereich = oDoc.getCurrentSelection().getRangeAddress() [color=green]REM aktive Cursorposition identifizieren[/color]
msgbox "Spalte AB: " +oBereich.StartColumn [color=green]REM TestAusgaben: 1.Spalte über oBereich richtig angesprochen[/color]
[color=red][b]REM und nun fehlt etwas ???

???[/b][/color].CellBackColor = RGB(255,0,0) [color=green]REM Zellhintergrund 255,0,0 = Rot [/color]
end sub[/quote]

Gruss Wolf