OpenOffice.info

Hi, ich habe meine Hausaufgaben gemacht - zwei Bemerkungen:
- In Stefans Beispiel 2 ist es wichtig, die folgenden Schlüsselwörter GROSS zu schreiben, sonst funktioniert es nicht (.CellContentType. [EMPTY/VALUE/TEXT/FORMULA]
-Charly nimmt Bezug auf eine Zellmethode: GetCellAddress():
finde darüber leider nichts - kann mir jemand ein konkretes Beispiel geben?

Sub kopiere 

dim CellRangeAddress as New com.sun.star.table.CellRangeAddress
dim CellAddress as New com.sun.star.table.CellAddress

Document = ThisComponent


Rem Anfangsaddresse des Quellbereichs

CellRangeAddress.Sheet = 0
CellRangeAddress.StartColumn =  0
CellRangeAddress.StartRow = 0

Rem Endaddresse des Quellbereichs

CellRangeAddress.EndColumn = 0
CellRangeAddress.EndRow = 0

Rem Anfangsaddresse des Zielbereiches

CellAddress.Sheet = 0
CellAddress.Column = 1
CellAddress.Row = 0


Rem Arbeitsblatt auswählen

oBlatt = Document.sheets(0)


oBlatt.copyrange(CellAddress, CellRangeAddress) 


end Sub

Hallo!

Es gibt auch einen Kopierbefehl bei dem man den Wert der Zelle nicht wissen muss: copyrange. Diesen Befehl kann man auch für einen Bereich verwenden.

Wie folgt kann man von Zelle A 1 nach A 2 kopieren:

[code]Sub kopiere

dim CellRangeAddress as New com.sun.star.table.CellRangeAddress
dim CellAddress as New com.sun.star.table.CellAddress

Document = ThisComponent


Rem Anfangsaddresse des Quellbereichs

CellRangeAddress.Sheet = 0
CellRangeAddress.StartColumn = 0
CellRangeAddress.StartRow = 0

Rem Endaddresse des Quellbereichs

CellRangeAddress.EndColumn = 0
CellRangeAddress.EndRow = 0

Rem Anfangsaddresse des Zielbereiches

CellAddress.Sheet = 0
CellAddress.Column = 1
CellAddress.Row = 0


Rem Arbeitsblatt auswählen

oBlatt = Document.sheets(0)


oBlatt.copyrange(CellAddress, CellRangeAddress)


end Sub

[/code]

Wenn Arbeitsblattindex, Zeilen und Spaltenindex dabei nicht bekannt sind, können diese Angaben mit Hilfe der Zellenmethode: GetCellAddress()
ermittelt werden.

Gruß
Charly
[/code]

Danke, so stelle ich mir eine Hilfe vor.
Habe das Beispiel nachvollzogen - Funktioniert
Mehr gelernt als in den vorangegangenen 3 Tagen Theorie

Hi, komme mir wie ein Idiot vor - in VBA ging doch alles sehr gut
Brauche zum Einstieg in OOBasic folgenden Code:
- gehe zu Zelle A1
- schreibe dort Wert (z.B. "Hallo")
- kopiere Wert Zelle A1 >> Zelle A2
sieht (und ist wahrscheinlich) sehr simpel, aber ich bekomm es einfach nicht hin.