Seite 1 von 1
Zelleingabe in Calc
Verfasst: Do, 13.05.2004 16:49
von Wolfgang Lampert
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.
Verfasst: Fr, 14.05.2004 12:03
von Wolfgang Lampert
Danke, so stelle ich mir eine Hilfe vor.
Habe das Beispiel nachvollzogen - Funktioniert
Mehr gelernt als in den vorangegangenen 3 Tagen Theorie
Verfasst: Fr, 14.05.2004 17:43
von Charly
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: Alles auswählen
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
Wenn Arbeitsblattindex, Zeilen und Spaltenindex dabei nicht bekannt sind, können diese Angaben mit Hilfe der Zellenmethode: GetCellAddress()
ermittelt werden.
Gruß
Charly
[/code]
Verfasst: Mo, 17.05.2004 10:39
von Wolfgang Lampert
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?